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ABSTRACT 


bhesGesidn and oOartial imoremenmtation of the PASCAL 
proaramming language for use on a microprocessor-based 
system is described. The framework for the implementation 


iS comprised of two subsystemss, a comoiler which generates 


code for a nypothetical Zerozvaddress machine and a 
translator that generates code for the target 8080 
mile fOocomouter. The Sort lions oO f the system which are 


imolementeo are written in the PL/M programmina language to 
run ina disxkette-based environment with at least S$eceK ovytes 


of memory. 
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I. INTRODUCTION 


A. AN INFRODUCTION TO THE PASCAL LANGUAGE 


PASCAL was the first programming language to embody the 
concept of structured programming defined by Edsger Dykstra 
and C. A. R. Hoare [7)]+s and was develoved by Nicklaus Wirth 
at Eiagenossisch Technische Hochschule mn LGC VC in, 
Switzerland. Preliminary versions of the PASCAL language 
were drafted in 1968 folliowina the spirit of the ALGOL=60 
and ALGOL=" orogrammina languages [10]. (Rewet Vests -ASeAe 
compiler became ooerationa|l 1 pe OS) TUR Scvalol Kinerase s(eytiell| niece (io (a 
followea a year later. In 1973, a reviseg PASCAL report was 
pucolishead consolidating revisions resultina from two years 


of use and experience. 


The aevelooment of the Janguage PASCAL was based upon 


two porincioal aims: to be more oowerful ena its 
oredecessors and to orovide a suitadle lanquage to teach 
structured programming. The extensions of PASCAL relative 


to ALGOL=60 lie in the data structuring facilities that 
expand its range of arplicability. PASCAL introduces record 
aOGOmnilesStruUctures that make it possible to sorogoram both 


commercial and scientific apolications. 








pre OoVeCC TIVES OF NPS=-PASCAL 


The major objective of the project described here was to 
provide the basis for an implementation of the PASCAL 
lamauage on an Intel 080 microcormouter system. PASCAL was 
chosen because of its flexible tyne declarations as well as 
its structured orogramming GoOns t muc tis. The rapid 


develooment and decreasing costs of microcomputer hardware, 


couoled with sophisticated comoatiblie software is allowing 
the Microcomputer to be used in a large number of 
applications. The availability of another high level 
language Ot: these systems can only increase their 


usefulness and acceptability. 


NPS=*=PASCAL was cevelopeqd to run on an 68080 based 
microcomouter system using the high level lanauage PL/M {9}. 
mis. ys imolemented through a cross compiler for 6&080 
mrenrooprocessor Systems, and executes on the Naval 
Postgraduate School's IBM 300 computer. The availability of 
the 8080 based CP/M cisk onerating system simulator (CPSYM) 
Samet mer tam 5600, with its oowerfu! depuaqing capabilities, 
was also an important factor in the choice of the 8080 


microprocessor and the CP/M operating system. 





IIT. NPS=PASCAL LANGUAGE DESCRIPTION 


A BACKGROUND 


NPS=-PASCAL is an implementation of PASCAL with slight 
deviations to allow NPS=PASCAL to be specified by an LALR(1) 
grammar forn. This permitted the use of the University of 
Toronto's compilerscompiler parse table generator (15). 
NPS=-PASCAL allows simple conversions to PASCAL ang back 
which will become increasinaly important as the number of 
Praianie Pesce At Sage! 1cat ion orograms increases. The 
differences oetween the PASCAL structure and NPS=PASCAL are 


given below. 


Poeerertiures OF THE NPS=PASCAL LANGUAGE 


Peeo=— pac Al Declarations 

NPS=PASCAL recuires tnat all labels, constants, user 
defined tyoes, and variables be declared prior to their use 
in the program body. fhis is accomolished by ae series. of 
declarations and definitions in sequence at the beginning of 
the program. The orogram heading is used to declare the 
input and outout files which can be accessed by the program. 
The inout and output ceclarations are discussed in section 
aye Procedures functions, which may Contains aca 
declarationsr must also be defined orior to their invocation 


wn time Oroaoram. Althouah procedure and function calls were 


10 





not imolemented in NPS-PASCAL, it was intended that these 


Structures would be recursive. 


a. Label Declarations 

Labels are used by NPS=PASCAL as the target of 
al | GOTO statements in the program. Lavels can be any 
Sesieive imteger value up to thirty digits in length. This 
meerrers trom PASCAL. NPS-PASCAL treats the tabel as a 
identifier while PASCAL recognizes it as an integer ey a lue- 
When labels ane used 1n the program their declaration must 
appear immediately following the program heading. Tne only 
faecor ‘that restricts the number of labels in a given 
proqram iS the availaodole memory of the MicrOcomothee: 
Sxecumimonsstme ‘IPS=FASCAL comoiler. Sufficient memory must 
be available after the comoiler 15 loaged for the symbol 
table entries generated oy each label declaration. This 


BIZ erTestriction also applies to ali declarations. 


See constagt Leclarations 
Constant declarations enable the oOrogrammer to 
introduce an identifier as a synonym for a valid constant. 
A constant 1S either a number, a constant identifier 
(sessibiy signed) or a String. Constant identifiers usually 
allow &@ mrogrammer to Rea ete more readable and self- 


documenting orograms. 


G% Tyoe Declarations 
One of the greatest strengths of the PASCAL 


language is the ability to define unique data types. In 


1 i 





NPS*“PASCAL there are four standard types: Boolean, Integer» 


Char (character), and Real. Inteaers may be any value 
between =3¢e,/68 and +32,767. Real values are represented 
internally 1M AN exponential format and can take on any 


positive or negative value consisting’ of fourteen digits 
multiolied oy ten to the -64th power through ten to the 
+63rd power. Characters may be any valid ASCII character. 
The two identifier constant values of TRUE and FALSE can be 
assigned to a2 variable of type Boolean. 

In addition to the above scalar typesr, there 
exists the capability of declaring a user defined scalar 
myeecwes series of identifiers in Sequence can be given an 
identifying name, making up this user defined type. A type 
may also be defined as a suborange of any previously defined 
Scalar tyoe, exceot Boolean and reals dy indicating the 
smallest and largest value in the subrange. [new oroe Ge sm 
which the user defined scalar type identifiers are declared 
determines the highest and lowest values of that type. The 
Pare st identifier becomes the lowest value of that type, 
while the last becomes the highest. 

Structurea types are defined oy describing the 
individual types of their components and by indicating which 
structuring method is to be apolied. This determines’ each 
camoegmemt S location im the structure. NPS=PASCAL Supports 
Grow foure tyoe structures of PASCAL: array structures, record 


emructures, set structures, and file structures. 


lee 





(1) Array Structures 
Array structures contain two OF more 
components of the same declared type. Arrays are indexed 
with up to five dimensions. Each dimension is defined by a 
user defined scalar type or a subrange of the integers. 
Components may be declared as any valid type. If arrays are 
nested (the components of the array are arrays) then a 


maximum of five levels are allowed. 


(2) Record Structures 

Uniike the array structure, the record 
structure's components, called fields, are not necessarily 
of the same tyoe. Each field in the record structure must 
be assigned a valic type, which possibly could be another 
eecord. Nesting of records is allowed up to four levels) of 
aieclaration. ldentifiers are associated with each field, 
and are used for selection rather than a computable index 
Meimen es tmeat Of an array. Records may vary in Jength with the 
restriction that the variable part of each record must be 
meme iast oortion of that record. The variant part of a 


record cannot contain another record with a variant part. 


(3) Set Structures 
The set structure defines a set of values, 
which iS the power set of a declared base type. Ihe base 
type is usually a user defined scalar type or a subrange of 
the type integer. The maximum number of elements in the set 


cannot exceed sixteen including the null set. 


15 





ewer yre Structures 
4 file structure is a sequence of components 
of tne same tyme whose position in the file defines the 
element's order. Only one element is accessible at any one 
time during execution of a program. Subsequent items must 
be accessed sequentially. The manipulation o f file 


structures was not implemented in NPS=PASCAL. 


d. Variable Declarations 
NPS=PASCAL SURPDCEES HOtR PStatic ™ and) sdynanic 
variables. Every variable is bound to a particular type 
during ceclaration. Cynamic variadles are referred to as 
pointer type variables. They each may point to only one 
Geclorea —tyoe which orovicges data protection. POornter 
variaoles may also occur In structures, as In record 


structures, which are themselves dynamically generated. 


ec. Arithmetic Processing 

Integer and binary coded decimal (8CD) arithmetic 
are supported by NPS=PASCAL. Mine rskelols) easeiate Stele ~ Sia 
operations in (set membership), + Cunion), * Cintersection), 
- (set difference), and all of the relational operators are 
also defined. The relational ooerators provided itn WNPS- 
PASCAL are: = (equal), <> (not equal), <= (less than or 
equal), >= (greater or equal), < (less than), and > (greater 
than). The three loaical Boolean operators AND, UR, and NOT 


are also defined. 
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ea comterol otructures 

NPS*PASCAL emeloys several useful control structures 
somsrstcimag of BECIN = END blocks for compound statements, IF 
Mens ama if THEN ELSE conditional Statements, CASE-OF 
selective statements, REPEAT@UNTIL, WHILE, and FOR 
repetitive statements, and procedure statements. NPS=PASCAL 
is a block structured language, much like ALGOL=60 in that 
each block 1s Oracketed by a BEGIN and an END, DioGkS Mealy 
be nested within other blocks up to and including the tenth 
level of nesting. This nesting restriction also applies to 
conditional and repetitive statements. 

Uaike ALGOL=-60, BEGIN-END blocks do not restrict 
the scope of defined variables within the program. All| 
variable procedure and function names must be uniquely 
declared globally in the program. Variables declared within 
a procedure or function, nowevers, have their scope limited 
to the range of that procedure. Procedure nesting is 
allowed with the same variable scope restrictions applicable 
Boner mp rocedures or functions. Storage for statically 
declared variables remains allocated throughout the program. 
Storage for local variables within procedures and functions, 
as well as dynamically generated variables, is allocated as 
required. The storage for the dynamically assiqnead 
variables is returned to free storage at Yrun time for 
reassignment when no longer in usee The run time storage 
allocation management routines were not implemented in NPS- 


PASCAL. 
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4. Proceaures Ana Functions 

Statements which can be Qiven user defined 
identifiers are called procedures. A procedure 1S 1nvoked 
in the program by its identifier. Procedures and functions 
are declared in the declaration portion of the program. 
Each may contain local variahle declarations, as explained 
above, in addition to formal parameters. There are three 
types of acceptable formal parameter specifications: value 
parameters, variable parametersr and procedure or function 
parameters. Value Parameters Cea by value) are 
expressions in the callina statement that are evaluated once 


sac tivation of the Ccrocedure. lie weaectua llparameternis tne 


evaluated expression. The formal Darameter represents a 
PocaleVariabdle within the procedure. Variable parameters 
(call by reference) are addresses of variacies iin the 
ea!) |}inao program. The actual parameter 18S a variable whose 


indices are evaluated, if requiredr prior to the execution 
of the procedure. The formal parameter 1s aiven the same 
address and must be of the same type when used. Procedure 
or function ovarameters are evaluated each time they are 
used. The actual parameter 1s a function or procedure 
identifier. 

Functions and procedures are declared in the same 
manner except that each function nas an associated type. 
When a function is referenced in an expressions, the function 


oroduces a value which is returned in place of the call. 
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oa Paeut And Outout 
NPS*=PASCAL has four separate Statements which 
secomnmplish ali imouts amd OoutSeut for the orogram. READ ana 
READLN statements are used either to read from the console, 
the default input devicer, or from ae file when one is 
specified. If a file is snecifiedr tne file mame must be 


declared in the program headings and the file type must be 


Seecified in a file type declaration. These rules anoply to 
output files as well. Text files declared to be of tyne 
character are a special case. POC this, a call to the 


procedure READLN will read the characters specified and then 
skip to the next line (the character following the next 
carriage return and line feegd). WRITE and WRITELN are used 
MomenGherfewrite €o the console, or to a file specified in 
the proaqram headina. The data to be read or written is 
scecified by variables or strings in quotation marks which 
are enclosed within oarentheses. Any comoination of integer 
variables or quoted strinas may be placed between 
parentheses and separated by commas. A a quoted string in a 
read statement 1s treated as a comment. The maximum numoer 
of characters orinted on a line is 80. When the output from 
@ given WRITE, or WRITELN specification reaches oh) 
characters, a carriage return and a line feed character are 
automatically issued. If tne WRITELN statement 1s usedr the 
carriage return and line feed are generated after processing 
the final oarameter in the statement. 

The builtein functions of PUT and GtET were not 


imolemented in NPS-PASCAL. In addition, the predicate EOF, 


lee 





moe 1S USeEG to mark the end of a file being orocessed, was 


asso omitted. 
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Piet IMP CEMEN TAT TON 


A. COMPILER IMPLEMENTATION 


Ll. Compiler Maan eat on 

The compiler was designed to read source language 
statements from a caiskette and to produce an intermediate 
lanquage file while printing an optional source Jisting at 
the console. A one pass anoroacn was used to Provide a fast 
compilation, as well as to reauce the reauired work and size 
Sieeethe comoiler. To eliminate the need to perform a 
complete second oass of the source filer labels are placed 
in the intermediate code at the position where the execution 


Pieter Oorogram 1S to continue after a Orancn. This was done 


because the exact iGaatronmEotomeaqchns branch 1S mot  Khown 
durina the compilation phase. The resolution of label 
locations iS accomolished by the code generating orogram as 


it scans the intermediate code. The code generating program 
is hereafter refered to as the translator. 

The sinaqle pass of the compiler builds the symbol 
tadle, converts all numbers in the source program to their 
internal representation, generates the intermediate file on 
the disk, SnGaeprovides “am octional Jlistima of the source 
Statements at the console. Token and oroduction numbers are 
also listed for each line if desired. If program errors are 


anticioated, the comoiler can also suroress the generation 





of the intermediate file by the setting of soecific toaglies 


at the beginning of the orogram. 


a (oCanner 

The scanner analyzes the source orogram character by 
emonectet ana sends a sequence of tokens to the parser. The 
scanner also provides a listing of the source statements 
when directed, eliminates comments, and sets the compiler 
toagles. 

The scanner is divided into four main sections which 
are selectively executed deoending on the first non-blank 
character of the token. titer the = tirest “ehardeter 9) 1s 
scanned, the individual section involveg scans the remainder 
pretest okemM and olaces it in the accumulator (CACCUM). The 
firest byte of ACCUM contains the length of the token. In 
rhe case of tokens that exceed the size of ACCUM (32 bytes) 
a continuation flag is set which permits the scanner and 


parser to suodsequently accept the remainina portion on the 


token. 

[hemwtouwr sections of the scanner handle strings, 
numbers, identifiers On reserveg words, and special 
characters. The strina processing section is invoked 


whenever the Pinot —wenmaracter of. a token is a “single 
quotation mark. The process then analyzes each succeeding 
character until a second quotation mark iS scanned 
indicating the end of the string. The program section tnat 
manioulates numbers determines the type of number being 


scanned as it processes each character. fans Getermination 
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1S used by subsequent routines that perform type checking 
and conversion to internal representation. When the scanner 
recognizes an identifier it searches the vocabulary table 
(VOCAB) to determine if the identifier is a reserveo word. 
If a reserved word is matched, the scanner returns the 
peemcion of the word in the VOCAB table to the parser. This 
position corresponds to the assi,aned token number. The 
VOCAB table 1S one of the tables provided by the LALR(1) 
oarse table generator [15]. 

Special characters are handied separately, except in 
two cases. If a voeriod is followed by numeric characters 
without intervening soaces, the orogram section which 
processes svecial characters assumes that areal number 15 
being scanned. This crogram section handles the number in 


the same manner as does tne number section. 


iuomoaowe or special Cchareacters are scanned one right 
after another, the scanner will pass both characters as a 
single token after assigning the token number from the VOCAB 


table. 


3. Symoo! Table 
The symbol} table is used to store the attributes of 
}avels, constants, type declarations, variable identifiers, 
orocedures and functionser and file declarations. The main 


function of the symbol] table is ta verify orogram semantics 


and table symbol] characteristics which are used ro the 
generation. of the intermediate code file. Access to the 
sympoo] taodle 1S accomolished through various primitive 
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subroutines using based qlobal variables to uniquely address 
the elements of each entry. 

The symbol table is modeled after the ALGOL=-M symbol 
table (5). It is an unordered linked list of entries which 
gGrOwS toward the top of memory. Individcua] entries are 
piper accessed Via ao chained hash addressing techniaue as 
illustrated in Figure 1, or by means of address pointer 
fields contained in other entries. The later method of 
access iS required since not all entries in the symbol table 
have an identifiers, called the printnamer associated with 
them. 

Fach location in the hash tanle heads a linked list 
of entries whose orintname, when evaluated, results in the 
same hash value. A zero in any location in the hashtable 
indicates that there are no entries whose orintname produces 


that value. During symbo! taodle construction or access, the 


global variaole PRININAME contains the aadress of a vector 
whose first element is the length of an identifier iin a 
single byte, followed by the identifier's characters 


reoresented in ASCII format. nen variab le oY MAASHe wcomtains 
the hashcode value, the sum. of the oprintname's ASCII 


EhomaGcters mMmOoduUTO leo . Entries that produce the same hash 


code value are linked together in the symbol taole dy a 
Bisnewte misc eaccesSed via the tndividusal entry's collision 
Field. The Gina fp is constructed in such a way as to have 


the latest entry constructed at the head of the chain. 
There are eight different types of entries that Can 


oe found in the NPS=-PASCAL symbol table. Each entry 
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Pavol ttkRee FIELDS OF A SYMBOL TABLE ENTRY 
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contains a number of fields, some of which are common to al] 
entriesr, and some of which apply only to warticular types of 
entries. All entries have the same first three fields: the 
collision field (first two bytes), the previous syrbol table 
entry address fiela (PRVSS8BITBLSENTRY = located in the third 
and fourth bytes), and the form field (FORM = the fifth 
byte), as shown on Figure 2. The remaining fields are used 
to uniquely describe each entry's attributes and particular 


maentitying Characteristics. 


aeeeeebe |! Entries 

ties form; velda sof a label entry has the constant 
byte value of zero. A single byte follows the form field 
Somtarmima “the lenath of the babel) s Orintmame. The 
individual printname characters appear after the length 
field, A two byte field following the printname characters 
contains 32 sequentially aenerated integer value which is 
assigned as the label's internal label number, This value 
1s used as the target feu Gcanching 1m the antermediate 
code. An example of a laoel declaration with its associated 


symbol table entry is shown in Figure 53. 


e) Concuantascmt cles 
the form field of a constant symbo/] table entry 
not only Identifies the type of entry,s, it also desiaqnates 


the particular tyoe of constant. The five valid types of 


constants are: unsigned identifier (FORM = OQI1H), signed 
identifier (FORM = 41lH), integer (FORM = O9H), rea) value 
oral, and string constant (FORM = 19H). Each entry 
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ENTRY 2 


ENTRY 1 


EXAMPLE LABEL DECLARATION: 


LABEL 10, 6000; 


SYMBOL TABLE ENTRY FOR ABOVE DECLARATION 





MEMORY | SYMBOL BEE 

ADDRESS TABLE . 
3415H LABEL NUMBER 
3414H i ie : 
3413H ASCII CHAR 0 
3412H ASCII CHAR 0 
3411H ASCII CHAR 0 
3410H ASCII CHAR 6 
340FH PRINTNAME LNGTH 
340EH FORM 
340DH feueat a Seer 
Saal ENTRY ADDRESS 
340BH a 

eee eee cote men) [ADDRESS 
3409H LABEL NUMBER 
on vs 
3407H ASCII CHAR 0 
3406H ASCII CHAR 1 
340SH P PINTNAME LNGTH 
34041 FORM 
3403H re SBTBL 
a i ENTRY ADDRESS 
3401H 00H . COLLISION 
3400H 00H {xooness 


LABEL ENTRY SBTBL 


FIGURE 3 
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in the symool table has a unique three bit code in its one 
byte form five lids Ihe three bit code for constant entries, 
for example, jis O01. Tne remaining bits in the FORM variable 
descrivde the particular characteristics of the type 
involved. 

Following the form field of the constant entry 
are the oprintname tength field and the printname characters. 
The value of the constant follows the orintname characters. 
The value field may consist of another length field and 
Srigtmame Characters in the case of identifier and string 
constants, or it may contain the internal reoresentation of 
a constant number (two bytes for integer values and eight 


bytes for real values). 


one Tyoe Entries 

There are two kinds of type entries that can be 
found in the NPS=#=PASCAL symbol tebdle,s, a simple type entry or 
a type declaration entry. Simole tyoe entries either 
indicate that a basic type 18 DeINgG assigned, or that a 
defined complex tyoe declaration is to be evaluated. In the 
later case, the simple tyoe entry will contain a pointer to 
a type declaration entry. Type declaration entries are 
generated from user defined tyoes found In the source 
program. In some cases, a chain of tyre declarations can be 
defined. An examole of this would be an array of the type 
apeavewaiven 1S 1tselt of tyoe integer. 

The form fiela of a simole type entry indicates 


which basic type 1S being entered or accessed. An integer 


Ze 








tyoe has the FORM value of 4eH, a real type has the FORM 
value of 4AH, a character tyoe has a FURM value of S2H, and 
a boolean tyoe has a FORM value of SAH. A FORM value of 74h 
Heereates that sas tyoe declaration entry must be accessed to 
determine the complete tyoe of the entry. liven et ela 
following the form is a one byte field containing the length 
of the printname, which is followed by the printname 
characters of the tyoe Wwaemt) filer. The ast two bytes 
Eomtiaim the oedidress of the specified type. An example of a 
mmore type entry is found in Figure 4. 

A tyoe declaration entry is constructed for any 
o f the seven aifferent user definable types in NPS=#PASCAL, 
consisting of scalar types, SubDrange tyoes, array types, 
recorg tyoes, set types, file tyoes, and oointer types. 
Only the scalar entry contains an accessinle oprintname. The 
rest of tne entries must be accessed via a cointer field 
found in other entries. The format @) these type 


Meclaration eEmtries is found in Tables 1 through /7. 


d. Variaodle Entries 

The form field of the variable entry contains a 
value which describes the type of the variable. The values 
of the FORM and their associated tyoes are shown in Table 8. 
Bollowing ithe form field are the fields which contain the 
variable iaentifier's orintname length and printname 
characters. PA Stwo byte field which contains the address of 
the variable's starting address in memory appears after the 


Perm tmane Characters. ijpcmeeaoress ms a felative offset 
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Simple Type Entry Example: 
TYPE INT = INTEGER; 


MEMORY SYMBOL TABLE FIELD 
ADDRESS ; 
340AH 
Address of 
Integer type 
3409H 
3408H ASCII Char T 
3407H ASCII Char N 
3406H ASCII Char i 
3405H Length of 
Printname 
3404H Form 
3403H Previous 
Symbol Table 
Entry Address 
3402H 
3401H 
Collision 
Address 
3400H 





SYMPLE TYPE SYMBOL TABLE ENTRY 


FIGURE 4 
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Scalar Symbol Table Entry Format 
Byte Number Field Description 


0 - 1 Collision Address 
2 - 3 Previous Symbol Table 
Entry Address 
4 | Form Field (Constant Value 07H) 
S : Printname Length (LPN) 
6 = 5+¢LPN ASCII Representation of Printname 
6+LPN | Ordinate Number Of Scalar Ident. 
7+LPN - Address Of Parent Type 
8+LPN : 


SCALAR SYMBOL TABLE ENTRY FORMAT 


Paice 1 


Lg) 











Subrange Symbol Table Entry Format 


Byte Number | Field Description 
0 - | Collision Address 


} 
- 3 Previous Symbo! Table 
Entry Address 
4 Form Field (Value Type of Subrange) 
OFH Ordinate Elmt. 
4FH Integer Elmt. 
8 FH Character Eimt. 
5 - 6 Parent Address Field 
7 - 8 Low Value Of Range 
9 - 10 High Value Of Range 
Peel 2 : IDRFference + 1} 





SUBRANGE SYMBOL TABLE ENTRY FORMAT 


TABLE 2 
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Array Symbol Table Entry Format 


Byte Number Field Description 






Collision Address 
Previous Symbol Table 
Entry Address 
Form Field(Const. Val. 17H) 
Number Of Dimensions 
Address Of Component Type 
Total Storage Required (No. Bytes) 
Basic Type Of Components 
Value Type 

OOH Ordinate 

O1H Integer 

OZH Character 

O3H Real 

04H Complex 

OSH Boolean 
lige 1 2 Address Of Dimension 1 
13 - 14 Address Of Dimension 2 


| 
a er ESE 


ARRAY SYMBOL TABLE ENTRY FORMAT 


TABLE 3 


Si 


Set Symbol Table Entry Format 


Byte Number 






Field Description 





Oo - 1 Collision Address 
2 - 3 Previous Symbol Table 
Entry Address 
4 Form Field (Const. Val 27H) 
5 =- 6 


Address Of Set Type 


SET SYMBOL TABLE ENTRY FORMAT 


TABLE 4 


File Symbol Table Entry Format 


Byte Number Field Description 





0-1 Collision Address 
2 at Previous Symbol Table 
Entry Address 
Form Field (Const. Val. 2FH) 
S - 6 Address Of File Type 





FILE SYMBOL TABLE ENTRY FORMAT 


TABLE $ 
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Pointer Symbol Table Entry Format 


Byte Number Field Description 






0 - 1 Collision Address 
2 - 3 Previous Symbol Table 
Entry Address 
4 Form Field (Const. Val 37H) 
5S = 6 Address Of Pointer Type 


POINTER SYMBOL TABLE ENTRY FORMAT 


TABLE 4 


Record Symbol Table Entry Format 
Byte Number Field Description 


0 - 1 Collision Address 
2 - 3 Previous Symbol Table 
Entry Address 
| Form Field (Const. Val. 1FH) 
5 - 6 Maximum Record Offset (Allocation) 
as . Address Of Last Record Field 


RECORD SYMBOL TABLE ‘ENTRY FORMAT 


TABLE 7 
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Neco kcer xed Field Symbol “ab ie Entry Format 


Byte Number 





Field Description 






Collision Address 
- 3 Previous Symbol Table 
Entry Address 


ho © 
$ 
= 


4 ies Form Field (Const. Val. SFH) 
S Length Of Printname ‘LPN) 
6 - S+LPN Printname Characters in ASCII 
6+LPN - 7+LPN Address Of Parent Record 
8+LPN - 9+LPN No. Of Bytes (Storage) in Field 
HOSEPN =-11+LPN Address Of Type Of Field 
12+LPN -13+LPN Offset From Record Base 





RECORD FIXED FIELD SYMBOL TABLE ENTRY FORMAT 


TABLE 7A 


Record Tag Field & Variant Field Entry Format 


Byte Number Field Description 


0 - |] Collision Address 
2 - 3 Previous Svmbol Table 
Entry Address 
4 Form: Variant (Const. Val. DFH) 


Tag (Const. Val. 9FH) 


S Length Of Prin*name (LPN) 
6 - S+LPN | Printname Characters in ASCII 
6+LPN - 7+LPN Address: Of Parent Record 
8+LPN - 9+LPN No, Bytas in Field (Tag: No of Cases 
| Cases) 
10+LPN -11+LPN Address Of Field Type 
12+LPN -13+LPN Offset From Record Base 


RECORD TAG FIELD & VARIANT FIELD ENTRY FORMAT 


TABLE 7B 
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from the ovoase of the variable area assiqned by the 
translator. The length of the variable is determined by the 
variable's type. Tne compiler keenos a count of the total 
amount of storage and masses this value to the translator at 
Eme completion of the compilation. The translator 
subsequently converts the relative addresses in tne 
intermediate code to absolute addresses in the final target 
machine code. An example of a variable entry is given in 


Pigure 5. 


e. Procedure and Function Entries 
Although the grammar of NPS=#PASCAL supports 
procedures and functions, the construction of their symbol 
table entry was not implemented. Their implementation, 
however, would oarallel the same format of al! the other 
entries in the symbol table. The FORM values of O4H, and 


OSH were reserved for this puroose. 


‘eeoymool table Construction and Access 

Several Standard Comsucuculon and access 
procedures were develoned for the manioulation of the symbol 
table. The procedure ENTERSVARSID is used by all routines 
which construct 3 Symdo | table entry containing an 
accessible printname. This procedure calls ENTERSLINKS to 
assign the collision and previous symbol taole entry address 
fields. The procedure ENTEREPNSID is then called to enter 
the orintname length and printname characters. ENTERSVARSID 
femeamledewith the value of FORM to be includeaq with the 


symbol. (inemmcal |) wn9g routines must subsequently enter the 
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The Form Field of Variable Entries 


Value Meaning (Type of Variable) 
O3H Scalar-Ordinate 
OBH Integer 
13H Character 
1BH Real 
Zor Complex 
2BH Boolean 


FORM FIELD OF VARIABLE ENTRIES 


TABLE 8 
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Variable Entry Example 


VAR ABC 


MEMORY 
ADDRESS 


340CH 


340BH 


340AH 


3409H 


3408H 


3407H 


3406H 


3405H 


3404H 


3403H 


3402H 


3401H 


3400H 


VARIABLE SYMBOL TABLE ENTRY 


Boolean; 


SYMBOL TABLE 





FIGURE 5 


oy 


FLEE 


Address of 
Type 


Offset from 
relative start 
of Variable Sto. 


ASGTI Char c 
ASCII Char B 
ASCII Char A 
Length of 


printname 


Form 


Previous Symtbl 
Entry address 


Collision 
Address 





additional gescriotive fielas for the particular entry under 
Goastruction. 

Symbol table access is accomplished through the use 
of the standard lookup Oroceduresr and pointers contained 
within entries. MicecnoceouremmmOOKUPSUNEY can “oe  caliied 
with the address) of a printname aS a parameter. The 
procedure calls CHECKSPRINTSNAME to compare the symbol table 
entry's printname with that of the parameter. The hashtable 
index of the parameter is used along with the symbol table 
moumrcavomefrie+as to access the correct entries in the table. 
The orocedure LOOKUPSPNSID was designed to accomplish the 
same task as LOOKUPSONLY with the additional feature of 
checking the forn Setaeld of the entry with a second 
parameter. If either procedure finds a match in the symbol 
tadle the global variable LOOKUPSADDR is set to the location 
of the starting address in the symbol table of tne matcned 
Byer y, moma the value FRUE 15 returned to the calling 


routine. 


Sa wearser 

[ihrememainser was taken from the ALGOL=M compiler [5], 
a table AGriven pushdown automaton with parse tables 
generated using the LALR(k) parser generator i544 Et 
receives tokens from tne scanner and analyzes’ them to 
determine if they are part of the NPS-PASCAL grammar. et 
the parser accepts a tokenr one of the following two actions 
is taken: it may save the token and continue to request 


tokens for the lookahead state, or tt may recognize the 
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riaht part of a valid production and aoply the production 
state causing a recuction to take place. [If the parser 
determines that the token received does not constitute a 
valid right oart of any oroduction in the NPS=PASCAL 
grammar, a syntax error will ve printed at the console and 
ByeniwcelUVER Orocecure is called. 

When the RECOVER procedure 1g Called, the parser 
Peiexs UP a State ano attemots to continue parsing from that 
Seoee. 1f this fails, the Sarser will continue to backup 
wimit 7 | the end of the currently oending reduction is 
encountered. At that point the invalid tokens are rejected 
and an attempt to parse tne next token 18S made.e This action 
continues until an acceptable token is found. 

The major data structures in the parser are the LALR 
ier ) parse oes ans tie parse stacxs. The oarse stacks 
Semsist Of a state stack and a orintname character stack. 
The printname character stack contains the individual 


etapaecters of the tokens passed by the scanner. 


6. Code Generation 

Tne parser not only verifies theres SYmMmtax Of the 
source statements, but also controls the generation of the 
intermediate code by associating semantic actions with 
Sroguctionm reductions. Nhen a reduction takes place, the 
SYNTHESIZE procedure is called with the production number as 
a parameter. Tne SYNTHESIZE procedure contains an extensive 
case statement keyed by the Production number to perform the 


approeoriate semantic action. The syntax of the l]lanquage, 


Sit 





ang the Semantic actions for each reduction are listed in 


Aooendix D. 


B. FRANSLATOR ORGANIZATION 


The zeroraddress machine code translator for NPS-PASCAL 
is a too downs modularized, program written in PL/M [9] anc 
designed for easy modification. Modules whose future 
implementation are required for the completion of a full 
compiler were includec ina stub form to indicate their 
absence iN the orogram. As with any other program executed 
under the CP/M system, the translator is loaded, and starts 
execution at address 100 hexacecimal (100H). Its Rone 1s 
the intermediate file <filename>.PIN generated and stored on 
meokme Dy the comoiler. The translator makes two comolete 
passes of this file. The intermediate file contains one 


byte Nnumoers which represent either oocoges of the oseudo 


machine or operanas7 sent from the compiler to the 
treags lator. The numerical value of the opcode 1s used to 
determine the oOroper entry oo1nt into a large case 
statement. Eacn case statement in the translator generates 


the portions of object code required to Produce the output 
object module. A simplified flowchart of the intermediate 


code handling routine 1S shown in Fiqure 4. 


On the first pass, the translator determines the $1ze 
of the onject module to be generated dy summina the reauired 
number of oytes of object code needea to oerform tne 


instructions o f each oocode used in the intermediate file. 
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INITIALIZE 





CLOSE INT. FILE 
RE-INITIALIZE PRG 
CALCULATE OFFSET 
SET SECOND PASS 






PROGRAM 
















GET NEXT 
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FM INTFILE 









ERASE INTFILE 
CLOSES OS rh) — lier 
TERMINATING MSG. 
_END_ OF PROGRAM 





INCREASE CODECOUNT 
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GENERATE ROUTINE 
CODE. 
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FLOWCHART OF TRANSLATOR CASE STATEMENT 


FIGURE 6 








In addition, the translator's first pass also determines the 
relative addresses of all branching label (LBL) instructions 
which are generated by the compiler. The label number 
serves as an index into a label tadle, constructed by the 
translator, where each label's relative location in the code 
area of the object file is stored and retrieved. Label 
number zero:is locateaq in the two bytes following the end of 
the translator orogram in memory, denoted by .~.MEMORY in 
meyhy while the location of the nth label is at bytes e2kn + 
oMEMORY aimice 6 21 - -MEMORY taize Thus the label table is 
limited only cy the size of the unused portion of memory in 


eme host microcomputer. 


Yoon reaching the end of the first oeass”) of the 
intermedaiate file, the translator rerinitializes the 
program, closes and re-opens the intermediate file, opens 
the object module file, and begins the second pnase of the 


machine code translation. 


After the object file is Waal Vike) aE, opened, the 
translator generates the 8080 code to load the stack pointer 
(SP) to the maximum available address at execution time, 
which is the last byte of the CP/M Transient Program Area 
CTPA). <A branch instruction is then generatea to the first 


byte of the code area. 


The ooject file's work area and Variaodle Storage Area is 
neato agmnetween the Orameh instruction and the first byte of 


the code aresa. These two areas are initialized with zero 
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hexadecimal values. The work area, sixty bytes in  Jlength, 
is used for performing real arithmetic and as a scratch area 
for temporary variables. The Variable Storage Area is used 
for the storage of variables declared in the source program. 
The symbol table, which was generated by the compiler, is 
not available for use by the translator. Therefore, the 
access to variaonles in the Variable Storage Area is 


acconplished using the overands in the intermediate file. 


On the second pass of the intermediate file object code 
iS generated Bat address I40H olus the number of bytes 
allocated for program variables. Fiaqure 7 shows the object 
file as it appears at execution time in the memory of the 


microcomputer. 


The intermediate file contains two separate addressing 
schemes. The variadle adoresses are converted to absolute 
addresses by adding the offset of the work area to each 
address. The label addresses are evaluated on the first 
PaacmoyecouUmMmormag tne numoer of bytes of objsect code which 
must be aqenerated erior to the appearance of the label in 
the intermediate file. On the second pass, the translator 
adds the offset of the work area $size and the variable 


allocation size to the previously stored address. 


Two methods of code generation are used by the 
translator. Simple intermediate instructions, which require 
ten or less bytes of object code, are generated in-line. 


Comolex instructions requiring more than ten bytes are 
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BASE 


VARTASBLE SIZE 
STACK 


VARIABLE SIZE 
PROC & FUNCT 
PARAMETERS STORAGE 
PROC §& FUNCT 
PARAMETER STORAGE 
AREA PROGSIZE 





CP/M TPA 
| CODE AREA 


140H + VARCOUNT 


VARIABLE STORAGE 


AREA 
140H 
WORK AREA 
100H 
CP/M 
DYSTEM PARAMETERS OOH 


OBJECT CODE IN TARGET COMPUTER 


PeGURE s7 
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generated once when Cees et encountered. Subsequent 
occurrences of the same intermediate file opcode causes the 
generation of a call to the code generated for the first 
invocation. This results in the generation of three bytes 


of ooject code for each succeeding occurrence. 


There are three routines used to generate the object 
module code. GENERATE is called for sinale byte generation, 
GENSFIVE generates five bytes of coder and GS$TEN generates 


ten bytes. 


At the completion of the second pass the translator 
closes the ooject mocule file, erases the intermediate file 
and generates a comoletion message at the console. Lf > aim 
error 3S detected oauring translation, an error message is 


generated at the console and the program terminates. 


{. Allocation of Storage Space 
The opcode ALL iS aqenerated ody the compiler to 
specify tne number of bytes to be allocated in the object 
module's Variable Storage Area. In addition, each oocode in 
the intermediate file indicates the size and type of data 


that 1S to be operated upon. 


a. Byte Data 
Byte cata items in the obdject moGule have 
two storage modes. The data is stored in byte locations 
when in memory. However, when a byte value is loaded into 
the stack, the oyte data is preceeded by a zero value byte 


ana loaded in the stack 1n a two byte format. A description 
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of the byte storage modes is shown in Figures 8 and 9. Byte 
data values are operated upon by the translator in byte 
format routines generated in the object file. Byte data may 


reoresent characterss numbers, or boolean data. 


‘ole Integer Data 

Integers are represented by two byte values 
and are stored in memory and the system stack in the same 
Hmormat « The high order pyte is stored first followed by the 
low order byte of the integer number. The storage of 
integer numbers 1n memory and the stack is shown in Figures 
Sand 9. The storage follows the orocessing requirements of 
the 3080 Microprocessor (8) to comolete moves of data from 
memory OF the stack into the processor double byte 
registers. An examole of the POP and PUSH operation Ls 
Bniownm im Figure 10. Integers are renpresentea in two's 
complement form. They may take on eee, from 736,/68 to 
+36,/67. The high orger bit of the integer reoresentation 
Bomuiemsvomecit. A zero high order bit indicates a positive 


integer value and aoone indicates a neaative value. 


Can Decimal Data 
Mecameals vim the NPS=PASCAL compiler are 
represented in binary coded decimal (BCD) format. Every 
decimal number is reoresented by 14 digits and is stored 1n 
e1iqht Gonuvaueus oytes. The first byte, located at the 
lowest memory adoress location, contains the sign of the 
number along with the sign and maanituce of the exponent. 


Succeeding bytes reoresent two decimal digits. The byte 
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ADDRESS MEMORY TYP ESOr VAGUE 


A 
1002H BYTE BYTE e 


1001H HIGH ORDER BYTE INTEGER 
VALUE 
1000H LOW ORDER BYTE i) 





BYTE AND INTEGER VALUFS IN MEMORY 


FIGURE 8 
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STACK 
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closest to the exponent byte represents the last two digits 
0 f tne numoder while the last oyvte comtarmamtme first two 
digits of the number. Fiaqure 11 Shows a BCD number stored 
in memory. 

The siqn information byte uses the high 
eecer bit tO indicate the sign of the number. A high order 
one bit WalGineakLeSuud Negative mumberm® while @ zero bit 
represents 2&2 positive number. The remaining seven bits 
reoresent the exoonent and its signe with a bias of 64, 
Values larger than 64 represent a biased positive exponent, 
while the values less than 64 represent exponents of 
negative sian with a result equal to the aifference vdetween 
64 and the value. This reference point allows a range of 
exponent values feom =54 to ro5. The decinal nmoint of the 


number 1S alwayS assumed to be pnefore tne first diait. 


Ge Senim>o Oatea 
Seincs Mine Nesom aoe Ae ame stored im memory 
sequentially. Tne first byte located at the ‘startirne 
address location indicates the lenqth of tne string. The 
Strimag of ASCII characters that follow the length byte is 
arbitrarily limited to 80 characters, which is the length of 


am outout line to the console. 


Cte Seithmetic QJoerations 


ae Logicals 
Logical ooerations or boolean operations act 


on byte values of zero and one only. A zero value indicates 
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a false while a nonzero value indicates true. Logical 
operations reguirina comparison between two elements return 
the result of the operation in the form of a true or false 
value. Logical operations are also oerformed using boolean 
values to determine loaical unions, disjunctions, or 


complements. 


3) Integers 


Operations with integers are 
straiaoht forward. silo) ele Integers are removed from the stack. 
and placed in double byte registers in the 8080 


microorocessor where the requested ooeration iS Carried out. 
Operations ote integers Vaecuuade wa agdl ct) Om, Subtraction, 
multiolication, divisions loaical comparisons, and 
meanstaormations to SCD format. Except for transformations, 
all results of integer ooerations are returned to the stack 


igeeenve two Oyte integer format. 


c. Decimals 
Arithmetic operations with 8CD numbers” are 
more comolex Eran with integers. However, the 8080 
microprocessor orovides the use of the DAA operator which 
simplifies the addition operation. BCD numbers and 
temporary results are stored in the work area during all 
real operations. Calculations are carried out by moving 


decimal number pairs into the &080 registers. The required 


operation is aoplieq reoeatedly to successive cytes until 
completion. The resulting value of the operation 1s 
returned to the NPS-#PASCAL stack in its eight byte BCD 
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tTormat. 

Since the default position of the decimal 
eve) tal in a BCD number is assumed to exist before the first 
digit, all operations must left justify each result. The 


punctions oO f aicigii tl Om > Subtraction, Mult Le! meat) One and 


division were not included in the imolementation at this 
ooint. However, the eoperations o f complementing, 
transformation to integer format, and some loaica) 


comparisons were implemented. 


3. String Ooerations 
String ooerations were implemented for output. and 
for comparison to determine logica! equality or inequality. 
Comoarisons take oclace either immediately between a string 
passed wn the intermediate file and a string in memory or 
between two strings located 1m =™memory. Results of the 


BomOaGisom are returned to the stack in boolean form. 


a Inout - Outout 


Inout as well aS Soucout 1S done interactively 
enroughn the console. The translator reads input numbers 
from the console and transforms them into the internal form 


of either an integer or a BCD number. Similarlysr the work 
area is used to convert numoers into a printable form for 
outout to the console. The routine WRITESSTRNG 1s used to 
generate the object code which performs all output 
operationss while the routines REANDSINT and READSBCD are 


used to perform all inout ooerations. 
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a NPS*=PASCAL Pseudo Ovoerators 
The oseudo code used jin NPS=PASCAL, which differs 


from the PASCAL#<P> code (13), is listed below. 


ae Literal Data References 
Pe ieleas (Literal Address). This operator 
generates 8080 code to place the following two byte integer 


value on the stack. 


b. Allocation Operators 

oe ee (Allocate). This operator generates 
code that initializes the number of bytes of storage 
required for the VSA. The size of the VSA is providea in 
the two byte ooerand. 

LBL: (Label}. This operator is used on the 
first oass of the translator to calculate the address of the 
label in the code area and save it in the label table using 
the next two byte inteaer number as the label number. 

bp 6s: (Load Immediate BCD). This operator 
generates coce to olace the following eight bytes on the 
BiEac K . 

Gee. (Load Immediate Integer). This 
operator generates code to place the following two bytes on 
mime stack. 

OIDs (ioaGg Byte). This omerator generates 
code to move the top two bytes on the stack into the 8080 HL 
register. The byte is then moved from its location jn 
memory to the stack oreceeded by a high order zero byte. 


ECOB: Coad BCD). This ooerator generates 
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code to move the top two bytes on the stack into the 8080 HL 
registers it then increments the register by eight and moves 
e1aht bytes in decending order from memory onto the stack. 
EOD hs (Load Integer). This operator 
generates code to move the top two bytes on the stack into 
the 8080 HL registers it then moves two obpytes from. that 


mocation onto the stack. 


ce Arithmetic Operators 

CNVB: (Convert BED). This operator 
generates code to replace the BCD value of the top eight 
bytes in the stack by a two byte integer value. Conversion 
of the number takes place in the work area. 

CNW T:: (Convert “iImnteaqer) = This operator 
generates coae to replace the two voyte integer value on too 
Spe tme stack by 1ts eight byte BCD value. Conversion of the 
number takes place in the work area. 

CA l: (Convert Integer Preceeding Address). 
This operator generates code to move the top two oytes from 
the too of the stack into a save area then to move the 
following Integer >to the work area. Code 1s then 
generated to convert the integer to a BCD eight byte format. 
The resulting BCD number is then returned to the stack 
followed by tne two bytes from the save area. 

EN2T: (Convert Integer Preceeding BCD). 
This ooerator generates code to move the two bytes from the 
too of the stack into a save area then the following BCD 


number into the work area. Code is then generated to 
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convert the BCD number to an integer number, The resulting 
integer number 1s then returned to the stack followed Dy the 
two bytes from the Save area. 

ADDB: (Add BCD). This operator generates 
code to move the two SCD values from the top of the stack 
into the work area where the sum of the two numbers is 
calculated and returned to the stack in BCD format (not 
implemented). 

ADDI: (Add Inteqer). This operator 
generates code to move the two integer values on the top of 
the stack to the 8080 registers where the sum of the two 
mamoers 1s Calculated and returned to the top of the stack. 

SUB G CSubt tact BAG) = This operator 
generates code to move two 8CD values from the top of the 
stack into the work area where the first 8CO number i185 
subtracted from tne second BCID number. The resulting BCD 
memoer is returned to the too o f the stack (not 
imolemented). 

ome Gouoeeacts. Integer). This operator 
generates code to move the two integer values on top of the 
stack to the 8080 registers where the first integer 1S 
sudtracted from the second integer. The resulting integer 
number 1S returned to the stack. 

Ey: (Multiply BIE De This operator 
generates code to move two BCD values from the top of the 
stack into the work area where their oroduct is calculated. 
The resulting BCD number is returned to the too of the stack 


(not imeclemented). 





MULTI: (Multiply Integer). This operator 
generates code to move the two inteaqer values on top of the 
stack to the working area where the product 1S calculated. 
The resulting integer number is returned to the top of the 
ot ack. 

Darya: Corry. de Be). This operator 
meer ates code to move two BCD values from the top of the 
stack into the work area where the second BCD is divided by 
the first BCD number. The quotient is returned to the top 
of the stack in BCD format (not implemented). 

DIVI: (Divide Integer). This operator 
generates code to move the two integer values at the too of 
the stack to the work area where the second inteaqer 1S 
myigded by the first integer. The quotient is returned to 
mime toe of the stack tn integer format. 

eo ler: (Less Than BCD). aie Operator 
generates code to move the two BCD values at the top of the 
stack to tne work area where the two numbers are compared. 
If the second BCD number is smaller than the first BCD 
number, a one 1S returned to the stack. Otherwise a zero 
is returned (not inplemented). 

LSSI: (Less Than Integer). This operator 
generates code to move the two integer values at the top of 
the stack to the 8080 registers where the two numbers) are 
comoared. if the second integer is smaller than the first 
integer, a one is returned to the stack. Otherwise a zero 


1S returned. 


Ly seha) (Less Than or Equal Bow ds. This 
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operator generates code to move the two values at the top of 
the stack to the work area where the two numbers are 


compared. If the second BCD number 1s smaller CHan > or 


equa] tor the furst BCD number, a one is returned to the 
etack, Otherwise a zero is returned (not implemented). 
wen ls (Less Than or Eayal Inteaer). Pos 


operator generates code to move the two integer values at 
Mme too of the stack to the 8080 ereqisters where the two 
numbers are compared. If the second integer removed from 
the stack 1s smaller tnans or equal to, the first integer a 
one 1S returned to the stack. Otherwise a zero is returned. 

BOB. (Egualme to 9 SCE). This operator 
qenerates code to move the two BCD values on top of the 
stack to the work area where the two numbers are compared. 
If the two 8CD numbers are equal a one is returned to the 
stack. Otherwise a zero is returned. 

EGET: FEqueat=tou-inteqger). This operator 
generates code to nove the two integer values at the top of 
the stack to the 8080 reaqisters where the two numbers are 
compared. If the two integers are equal a one 18 returned 
to the stack. QOtnerwise a zero 1s returned. 

NEQB: CNiGitee auial tow se). This operator 
Memeratvesumamcode to move the two BCO values at the too of the 
stack to the work area where the two numbers are compared. 
If the numbers are not equal a one is returned to the stack. 
Otherwise a zero 1S returned. 

NEQI: (Not Equal to Integer). This 


operator aenerates code to move the two integer values. at 
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the Reo of the stack to the 8080 registers where’ the two 
numbers are comnared. If the numhers sare not equal a one is 
returned to tne stack. Otherwise a zero 1s returned. 

GEGQB: (Greater Than or Eaual 6CD). hhis 
operator generates code to move the two BCD values at the 
top of the stack to the work area where tnh® two numpers. are 
compared. a, the second number is qreater than or equal to 
the first number a one is returned to the stack. Otherwise 
mezero 1S returned. 

GEQI: (Greater Than or Equal Integer). 
This operator generates code to move the two integer values 
at the too of the stack to the 8080 registers where the two 
numbers are comoared. I[f the second number removed from the 
stack 1S greater than, or equal to, tne first tnteaqer a one 
is returned to the stack. Otherwise a z@ro 18 returnec. 

GRTB: (Greater Than BCD). This operator 
generates code to move the two 8CD values at the top of the 
stack to the work area where the two numbers are compared. 
ime tne second BCI) nunber 18s greater than the first BCD 
number a one 1s returned to the stack. Otherwise a zero 15 
returned (not imolemented). 

Grid: (Greater Than Integer). This 
operator aenerates code to move the two integer numbers at 
the top of the stack to the 8080 registers where they are 
compared. If the second number 1s greater than the first 
integer a one is returned to the stack. Otherwise a zero 1S 


returned. 


NEGB: (Neaate Be Dk. This operator 


58 





generates code to move the topo two bytes on the stack to the 
8080 registers where it complements the Signe pitt St he GED 
s19m byte then returns the two bytes to the stack. 

MEG 1: (Negate Integer). This operator 
generates cade to move the integer number from the stack to 
the 8080 registers, connlements the number to its negative 
momeer amo returns it to the stack. 

COMB: (Comolement BCD). This operator 
generates code to move the too eight byte BCD number from 
the stack into the work area, finds tne nine's complement of 
meenumber ang returns it to the stack. 

COMI: (Comolement Integer). This operator 
generates code to move the ton two byte integer number into 
the 8080 registers, finds the two's complement of the number 


emo returns the value to the stack. 


d. Boolean Operators 

NOT: (Boolean None) c This operator 
generates code to move the two bytes at the too of the stack 
weeo the 6080 registers and compares the low order byte. If 
the byte 1S zero it returns a two byte value of one to the 
stack. If the byte 18 one it returns a two byte value of 
zero. 

ANDO: (Boolean Vevoly les This operator 
generates code to move the next two integer numbers into the 
8080 registers for logical AND comoarison of their low order 
bytes. If the relation iS truer a two byte value of one 1s 


Returned to the stack. Tf the relation 1s not true a two 
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byte value of zero is returned to the stack. 

Bilin (Boolean Or). This operator generates 
code to move the next two Integer numbers into the 8080 
reaisters for logical OF Scomeoar)scon ot their low order 
bytes. If the relation is truer a two byte value of one is 
returned to the stack. If the relation is not true, a two 


byte value of zero is returned to the stack. 


Gumenotriaa Goerators 

Ege Sr (Equal Ste limiG) This Operator 
qaenerates code to compare a strina whose length is given by 
the following byte. It moves the two bytes at Che Stop. — ot 
the stack into the 3080 HL register ana compares the string 
one byte at the time for equality. Pt weche Ose hy nGc um tne 
snecified memory location 18S eaual lel Wega! hele Vine) lin sie late 
intermeoiate filer, a one 18S returned to tne SiG. 
Otherwise a zero 18S returned (not imolemented). 

NEQS: (Not Equal Stumm) mciue This operator 
generates code to compare a strina whose length 1s given by 
the following byte. It moves the two bytes at tHe we Co mot 
the stack into the 8080 HL register and compares the strings 
for equality. If the string tn the specified memory 
location is equal to the string in the intermediate files a 
zero is returned to the stack. Otherwise a one 1S returned 


(not implemented). 
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f. Stack Operators 

DIG inc oke (Decrement Stack BCD). This operator 
mememates code to decrement the size of the stack by eight 
hytes. 

DEK I: (Decrement Stack) Integer). has 
@eerator generates code to decrement the size of the stack 
my two bytes. 

DCRI: (Decrement Stack Byte). this 
operator aenerateS code to decrement the size of the stack 


by two oytes. 


g.- Program Control] Operators 

Bir ee (Seamch tom labe]). This operator 
calculates the label address in the lavnel table using the 
mext two byte label number and moves the coaecount stored at 
the lavel taole address and adds to it the address of the 
ereart Of the code area. It then generates code to branch to 
meme calculated address. 

Beles (Grapchmacomarta onal Label). This 
operator calculates the branching address in the same manner 
as the BRL coge above. It then generates the code to move 
Mme two bytes on toc of the stack to the 8080 registers to 
check the condition. If the low order byte removed from the 
stack iS aoner the branching instruction 1S executed. Lek 
the low order byte is a zero the program continues without 
branching. 

ENDP$ (End of Program). At the end of the 


mre st oass On the translator this code reinitializes the 
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program, closes the intermediate file, and sets the second 
Mass Condition to true. On the second pass this opcode 
generates code to terminate the object code file and 


terminates compilation. 


Vetere Operators 

SOO: JCS Gomesh GD). This operator generates 
code to move the two oytes at the ton the stack into the 
RO8®O HL register then moves the next eight bytes from the 
stack to memory starting at the address indicated by the HL 
meg) ister. The value of the BCD number is preserved in the 
stack by incrementing the stack pointer by eight. 

STi (Store Integer). Pnis operator 
generates code to move the two bytes at the top of the stack 
into the 8080 HL register then moves the next two bytes from 
the stack to memory starting at the address indicated by the 
HL reaqister. The value of the integer number is preserved 
im the stack by tncrementing the stack pointer by two. 

SO: (Store Byte). nas Operator 
generates code to move the two bytes at the too of the stack 
into the 8080 HL registers then moves the next byte from the 
stack to memory at the address indicated by the HL register. 
The value of the voyte value is oreserved i1n the stack Dy 
incrementing tne stack pointer by two. 

Sy) Dish GSuoresoestruct BCD). This ooerator 
generates code to move the two bytes at the too of the stacx 
into the 8080 HL reaister then moves the next eight bytes 


from the stack to memory at the address indicated by the HL 
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register. 

Sho = {Store Destruct Integer). Tas 
operator generates code to move the two bytes at the top of 
the stack into the 8080 HL register then moves the next two 
bytes from the stack to memory starting at the address 
indicated by the HL register. 

STD: (Store Destruct Byte). This operator 
generates code to move the two bytes at the too of the stack 
into the 8080 HL register then moves the next vyte from. the 
stack to memory starting at the address indicated by the HL 


register. 


ineeelimmut - Output Oocerators 

RDVB: (Read Variable BCD). This operator 
generates code to read a SCD number from the consoler, change 
it into its acceptadle storage form, and place the eight 
byte internal form on top of the stack (not implemented). 

ROVI: (Read Variable Integer). This 
operator generates code to read an integer numbder from the 
consoler change it into 1tS accentable storage form, and 
mBimece the two byte number on top of the stack (not 
implemented). 

RDVS: (Read Variable String). This 
operator generates code to read a string variadle from the 
console and stores it at a location in memory indicated by 
the two toep bytes on the stack (not implemented). 

ARVBs: Cipitersvariacle BCD). ij%I[his -operator 


qaenerates coae to move the eiaht byte sCD number at the top 
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of the stack into the work area, changes the numver into its 
printable form and orints the number to the console. 

WRVI: (Write Variable Integer). This 
operator generates code to move an integer number into the 
work area, change the number into its printable form = and 
orint the number at the console. 

WRVSS$ (Write Variable SCR nia iis This 
Meerator Generates code toa print a string variable at the 
console equal in length to the next one byte integer. Tne 
string variable follows tne size byte. | 

DUMP (Start New Output Aimed This 
operator generates code to send a carriage return and line 


feed to the console. 


je Routine Ocerators 

PROS CE EOceGure wl all). This operator 
generates code ie fe) save the oresent JCIGIRGRS loaded in the 
orogram counter (PC) register and loads the PC register with 
the address contained in the next two bytes (not 
implemented). 

RIN: (Return From Procedure). This 
operator generates code to retrieve the address stored by 
the previously executed orocedure and loads the PC register 
to continue the program at this location (not imolemented). 

SAVP:3 (Save Parameters). This operator 
generates code to save the present value of the parameters 
in the next available area above the ena of the object code 


(not implemented). 
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UNSP s: (Unsave Parameters). This operator 
generates code to return the voarameter values from the area 


above the object code (not implemented). 
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Iv. CONCLUSIONS AND RECOMMENDATIONS 


The NPS-PASCAL project described here is the first staqe 
of a full PASCAL implementation for Intel 8080 »bdased 
microcomputers. Although incomplete, the compiler 
structures are essentially intact, ana the code generator is 


formulated. 


Several features cf the PASCAL lanaquage have not heen 
imolementeG anc are indicated 1n the proaqram listings. the 
structure of the heacr which 1s required for recursive 
procedures and functions, as well as record manipulations, 
has not been designed nor imonlemented. Integrated program 
testing, including timina tests,r, will also oe necessary to 
Getermine the correctness and efficiency of the overall 
system. Ennancements, such as formatted I/0, external 
subroutine library accesSs and run-time debuqging,s must also 
be agesianed and implemented. The structure of the symbol 


table should make runetime debugging relatively easy. 
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DE 


TO 


Be 
He 


IS 


rer 


IA 


NP 


fee 


PE 


ES 


IR 


LS 


DC 


DT 


Pl 


AN 


APPENDIX A + COMPILER ERROR MESSAGES 


Disk error : Recomoile. 


Symbol table overflow : Reduce number 
of declaretions. 


Exoonent size error : See user manual. 
Integer size error : See user manual. 


Invalid subrange error : Check type and 
limits of declared subrange. 


Invalid type error : Array component type 
specification invalid. 


Invalid array index : Array index types 

must be scalar = EE EGE or REAL types are 
invelid. 

No production : Syntax error in Source line. 
tiweearcdiecomsStamt Variable : Constant entry 
in symool table invalid * probably due to a 


orior error. 


Invalid expression type : The types of 
variables used in an expression are 
incompatible. 


Exoression stack overflow : Simolify program. 


Invalid read variable : Only INTEGER or REAL 
values can be read. 


Label syntax error 3: Al} labels must be 
integers. 


Duplicate constant name : Constant identifiers 
must be unique. 


Duplicate type name : Tyoe identifiers must be 
uUN1}Que. 


Pavatia tyoe identifier : Type identifier not 
oreviously declared. 


Array nest overflow : Simolify declaration. 
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AD 


IV 


RN 


VN 


UL 


AT 


Ge 


UO 


SO 


VQ 


[0 


erray Gimension stack overflow : Simplify 
array declaration. 


Variant stack overflow : Reduce the numher 
Ofevariant cases. 


Record field stack overflow : Reduce the number 
of fields specified. 


Variable declaration stack overflow : Reduce 
the number of variables declared per line. 


Undefined label error : Label not declared 
in label statement. 


Assianment tyre error : Type of expression not 
compatiodle with assianment variable type. 


Invalid expression : The variable types within 
the expression are not compatible. 


Invalid unary ooerator : Variable type must be 
INTEGER, REAL, or sSubrange of INTEGER. 


State stack overflow : Simplify program, 


Variable stack overflow : Reduce the length of 
variable printnames. 


If statement stack overflow : Simolify porogram. 
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[0 
EO 
EU 
DZ 


it 


APPENDIX B = TRANSLATOR MESSAGES 


MESSAGES 
Disk file close error. 
Disk file create error. 
Disk edie wevte error. 
No internal file found. 
Integer overflow. 
Execoment overflow. 
Exponent underflow. 
Division by zero attempted. 
Pavaliad Console I[nout 
BeeGmonmecomO) lation. io program errors. 


Compilation terminated due to error(s). 
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APPENDIX C NPS=PASCAL LANGUAGE MANUAL 


This section describes the various elements of the 
NPS=PASCAL languace. The format of the element al 
be shown, followed by a description and examoles of 
mes USC. The following notation is used: 
Braces {} indicate an optional entry. 
A vertical bar ; indicates alternate choices, one of 
which must appear. 
Reserved words are indicated by capital letters. 
Reserved words and other special symbols must appear 
as SNOWN. 
Items aopovearing 1n small letters are elements of the 
language which are defined and exolained elsewhere 


In the language manual. 


70 





arithmetic expression 


FLEMENTs: 


arithmetic expression 


FORMAT: 


integer; decimal] 

variable 

{(} arithmetic expression binary operator 
arithmetic exoression {)} 


{(} unary operator arithmetic expression {)} 


Be oCRIPTION: 


Arithmetic exoressions consist of basic data elements 
combined with arithmetic operators in algebraic 


notation. 


EXAMPLE: 
(A + B) 
-A 
C + 12.6 
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Array Declaration 


ELEMENT: 


Array Declaration 


FORMAT: 


VAR identifiers ARRAY (kx index-type-string *) 
OF component-type 

VAR identifier: ARRAY (* index-type-string 
{, index-type-string} *) 


OF comnonent-type 


PeoCRIPTION: 


Array types consist of F fixed number of declared 


cComoonents , where all the components are of the Same 


tyoe. Each comceonent of the array variable can 


directly accessed by the name of the array variable 


followed by its index location in the array enclosed 


Tom cnre (* notation. See assignment statement. 


EXAMPLE: 


Vapeemoerature:s ARRAY (* 1..10 *) OF REAL; 
VAR grades: ARRAY (* 1..5,2..8 *) OF INTEGER; 
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assignment statement 


ELEMENT: 


assiagnment statement 


FORMAT: 


variable := expression 


PEOCRIPTION: 


Assignment statements indicate a value to be assigned 
to avariadle or a value to replace the present value 
Opmamevariable. The symbol >= 3S the assignment 
operator and must not be confused with the relational 
Seechoewor = Indicatima equality. the resulting value 
of the expression on the right side of the assignment 
Statement must be consistent with the type of variable 
being assigned the new value. The only exception 15 
that INTEGER exrression types”) will be converted to 


REAL in the assignment to a real variable. 


EXAMPLE: 


0; 
temperature(* ec *) $ 
y °: Glen lVY a) * 2; 
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balanced statement 


BPeceMENT: 


balanced statement 


FORMAT: 


simple statement 
IF {€} boolean-expression {)} THEN balanced-statement 


ELSE balanced-statement 


DESCRIPTIONS 


Simple statements are statements of which no part 
constitutes another Statement; therefore, it 15 
considered a balanced statement. The IF conditional 
Statement has parts constituting other statements. 
However, if the IF clause its balanced by an ELSE 


balanced=-statement the statement 1s balanced. 


EXAMPLE: 
face sOmrreN. flag <= TRUE; ELSE a ss 2; 


wocy == 10) / bs 
Goto 300; 
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block 


eeeMENT s 


bvOCcK 


DESCRIPTION: 


The block preceeded by 2a programeheading forms’ the 
PASCAL program. Similarly, the block preceeded by a 
procedure-heading or a function=heading forms parts of 
Gem eeocegure and Function Declaration Part. The block 
consists of Label Declaration Part, Constant 
Definition Part, Type Definition Part, Variable 
Declaration Part, Procedure and Function Declaration 
Part, and Statement Part. All of the parts listed may 


be empty except the last. 


EXAMPLE: 


See individual cart descriotions for specific information 
on each oart. 
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dDoolean exoression 


FLEMENT: 


boolean expression 


FORMAT: 


NOT booleantexpression 
booleanzsexoression OR booleanw=exoression 
boolean-expression AND voolean~expression 


{(} expression relational-ooerator expression {)} 


DESCRIPTION: 


Sompearisom of constant to constant, INTEGER to 
ee cGer, REAL to REAL, REAL to INTEGER, and string to 
Strinqg are allowed in WNPS*PASCAL. Comoarison Of 
numbers of aifferent types are accomplished by 
changing the INTEGER number to REAL eye) folie to 
comparison. The results of the comparison are recorded 
as a 1! if the comparison is TRUE and as a 9 if the 


Gemoarison 1s FALSE. 


EXAMPLES 
NOT errflaa 


( X - 3 > 0) OR (€ errfiag) 
Gee ON AND € Y < 10) 
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case statement 


mies MENT: 


case statement 


FORMAT: 


CASE expression OF case-listrelements~listz END; 


pesCRIPTION: 


The case expression of the case statement is the 
selector for the caserlistzrelementslist. This list 
provides the choices of statements to select from. A 
Statement whose label 1s equal to the current value of 


the selector 18S executed. 


BcAMPUE: 


nN 


CASE 


4 
Xe 
Ox? 
Timit,; 


ee@ e¢ ae ee —# o 
x «x Kk «Kx ©} 
it th tt ott 


Gwe 


END 


LET 





Gonstant cetrst part 


BlEMENT: 


costant definition part 


FORMAT: 


emoty 


COIS tsconstant-definition=list; 


MesocRIPTION: 


Constant Definition Part introduces i cent ierie tS aes 
sSyNOnNIMS for constants. The constant may be a number, 


signed or unsianed constant identifiers or a string. 


FXAMPLEs: 


=e 


507; next = 2a 


* 
CS 
3 
o 
+7) 
ct 

il 


CONST least = 


To 





conditional statement 


ELEMENT: 


conditional statement 


MeolRIPTION: 


Conditional statements for NPS*PASCAL fall} iN two 
categories, the case statement ana the IF statement. 
Languaaqe modification to have NPS=PASCAL parsable with 
one look aheaaq forced a distinction between two IF 
Statements. See balanced statement and unbalanced 
Statement. The case statement was included in the 


simple statements. 


EXAMPLE: 


See case statement, balanced statement, 
ana unbalanced statement. 


79 





compound statement 


ELEMENT: 


compound statement 


FORMAT: 


BEGIN statementelist END 


DESCRIPTION: 


Comoound statements specify that the statements are 
executed in the same sequence as they are written. The 
BEGIN and END reserved words are the statement 
delimiters. A comoound statement can be used whenever 


a statement 18S requifred. 


EXAMPLE: 
BEGIN 
a:= least; 
b ?= a + 2; 
Cea= Most 
END 


8 0 
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data tyoe definition 


See MENT : 


Mata tyoe definition 


MeoerR{PTION: 


A data tyoe cetermines the set o f values which 
variadles of that tyoe may assume. It also associates 


an jdentifier with the type Tyoe. 


FXAMPLE: 


See simole tyne, structured tyner and pointer type. 
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declarations 


BeeMENT : 


declarations 


MeacRIPIION: 


ieee ORF ASCAL all the variables, labels, fume C1 Ons > 
procedures, constants, and data types to be used in 
the program must be declared at the beginning of the 


program. 


EXAMPLE : 


See block. 


Be 








expression 
ELEMENT: 
exoression 
MeoecrRIPTION: 


There are two types Git expressions Nn PASCAL. The 


boolean expression and the arithmetic expression. 


EXAMPLE: 


See arithmetic expression and boolean expression. 
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FOR statement 


ELEMENT: 


FOR statement 


FORMAT: 


FOR tndex-variable := initial-value DOWNTO final-value 
DO statement 
FOR index-variable := initial-value TO final-value 


DO statement 


MESCRIPTION: 


FOR statements or FOR looos are iterative statements 
in PASCAL. The expression to assign the initial value 
to the index variable is only evaluated once ovdefore 
Miemmrrat iteration of the body of the loop. At each 
1teration the value of the index variable 1S changed 
automatically therefore the value of the index 
variable can not be changed within the body of the 
Gopi. Index variables and the result of exoressi1ons 
Giving the initial value and final value must be of 


tyoe INTEGER. 


EXAMPLE: 


pOmewie c= 10 DOWNTO 1 DO 

totaltax := sales(* 1 *) * taxrate, 
PUremnmea= Cox +t 2c) to (2x + 29) DO 

Sum 3:= Sum + Nes 
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file tyoes 


SeeEMENT ; 


file types 


FORMAT: 


ieee readentifier = FILE OF type; 


(if type of file is CHAR then file is textfile) 


BESCRIPTION: 


NPS*=PASCAL uses the word file to specify a structure 
consisting of a sequence of components all of which 
are of the same tyoe. Declaring a file automatically 
ieeroduces a huffer variable scointer that indicates 
the component to read or aonend in the file. All the 
operations | of a sequential file generation = and 
inspection can be expressed in terms of four primitive 
file operators reset, rewrite, get, and puts, with a 


Somurorrina symbol EOF. 


EXAMPLE: 


Ibueemeso@eseono = FILE OF INTEGER; 
h¥epestext = FILE OF CHAR; 
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Pumet ton calc 


ELEMENT: 


function cal) 


FORMAT: 


ydentifier := function-identifier 
identifier := functionwidentifier 


(formal-parameter(s)) 


BeEOCRIPTION: 


Functions may acpear as orimary elements in arithmetic 
or boolean exoressions. The tyoe of the function must 


be scalar, Subrange, or pointer type. 


EXAMPLE: 


Not imolemented. 
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GOTO statement 


FLEMENT?: 


GOTO statement 


FORMAT: 


GOTO label 


MeackIPTION: 


GOTO statements serve to indicate that fur cCRer 
processing should continue at another part of the 
program text, at the location of the label. GOTO 
Statements are restricted jumps within their scope. It 


is not possible to jumo into orocedures. AlSo, every 


label must be ceclared in a label declaration oortion 


Set ne=Oorogram. 


EXAMPLE: 


GOTO 4300 
coro. 50 
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identifier 


ELEMENT: 


identifier 


FORMAT: 


letter 


otwere,.!'etter or diait ;{letter or digit? } 


DESCRIPTION: 


Identifiers serve to denote constants, types, 
variables, procedures, and functions. They must begin 
with a letter and may be followed by any combination 
OT letters anc/or dizits. Identifiers may consist of 
Opiayeome |!etter. Only the first eiaqht characters of an 
iGemearier are significant; although, the lenghth of 
an identifier may be up to 32 characters. Two. similar 
identifiers may be distinguishable if different in the 


Tieosteeiaont characters. 


miei e : 


a 

Sorted 
testl 
heoweighnt 
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IF statement 


ELEMENT: 


tees t st ement 


PoRMAT: 


IF booleanw-exoression THEN unbalanced=-statement 
IF booleanmexpression THEN balanced-statement 
IF booleanvrexpression THEN balancedestatement 


ELSE balanced-statement 


DeotRiFPT JON: 


IF statements are statements of conditional execution. 


of the boolean exoression evaluates to TRUE 


statement following the reserved word THEN 1s executed 


ana the ELSE statement is ignored if aopplicable. 


the boolean expression evaluates Ou AoE the 


Statement is aqnored and the ELSE statement 


executed if apolicable. 


EXAMPLE 
IF errorflag THEN errorprocedure 


Meem@ueres) < € THEN C $2 A + B 
Slese A 2 => -C 
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Larency ie 


BEEMENT ; 


input 


FORMAT: 


READ(variable-name i{,variable=-name}) 
READCfile=name, variable-name !{,variable-name} ) 
READLN(variable-list) 


READLN(file-name, variable-list) 


PeoeRiPT ION: 


The READ and READLN statements allow the user 


S10) the areas device to accept data for use 


execution of the NPS#-PASCAL program. READLN allows 


read and subdsequently skio to the beginning of 


next liner, oypassing any further data on the current 


line. 


SEAOMPLE : 


READ(x) 
READLN( x,y,z) 
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hebiel declaration part 


ELEMENT: 


label declaration part 


FORMAT: 


© LABEL lanelenumber {,label=number}; 


BeocRIPTION: 


Any statement in a NPS=-PASCAL pDroaqram may be marked by 
prefixing eG with a@ numerical label followed by a 
colon. This allows the statement to be referenced by a 
GOTO statement. All labels must oe defined in the 
label declaration part before tneir use. A label 1S an 


Haiscmonecelmtcegqer cConsistina of no more than Se digits. 


EXAMPLE: 
BABEL ©5 7 


Meira, 15,7c0, C5; 
Bebe te 5456/89; 


alt 





label 
FLEMENT: 
label 
FORMAT: 


unsianed integer $e diaqits or less in length 


DESCRIPTION: 
See label declaration part 
EXAMPLE: 


Deeds yt 3 
etx” | 


Eeelsoes  ) f Oetmen flags= TRUE 
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OUT OUT 


Bee MENT: 


OUECUT 


FORMAT: 


WRITE (Cfile=name, variable-list) 
WRITE (variablemlist) 
WRITELN( fileename, variable-list) 


WRITELN(variable-list) 


PEeoeRIPTION: 


The WRITE and WRITELN statements'7 allow the orogram 


access to the output devices. WRITELN terminates the 


current line of the output file after its oOarameters 


have been acted uron. WRITE and WRITELN 
Socumemtation of the output by GUcoUr eC ag 


information between quotations literally. 
EXAMPLE: 


HRohee the value of x is'+sx) 
WRITELN( xe yr, ‘the average is', 2) 
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program heading 


ELEMENT: 


program heading 


FORMAT: 


PROGRAM identifier (filesidentifier {, 


filewtidentifier}); 


DESCRIPTION: 


Program heading gives the NPS=PASCAL program a name 
and lists its ineut and output parameters. The name is 
omtiy used for identification purposes and is not 
otherwise Sidmiat 1c am t inside the program. The 
parameters indicate the files/devices through which 


the program communicates with its environment. 


EXAMPLE: 


PROGRAM bubbodlelinput-,output), 
PROGRAM primes(output); 
PROGRAM communicate(infiler,outfile); 
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PiniGee and, PUnc t « 


FLEMENT: 


Procedure and Function Declaration Part 


FORMAT: 


not imolemented 


DESCRIPTION: 


EVvVeErRVEOROCeCGUFE or function used in a PASCAL=SM 
Orogram must be defined before its wSeswFrocecures are 
Subroutines which are activated by procedure 
Statements. Functions are subroutines that yield a 
resultant value, and therefore can be used as 


Somstyvtuents of exoressionS. 


FXAMPLE: 


See procedure calls and function call. 
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pointer type 


ELEMENT: 


pointer type 


FORMAT: 


TYPE identifier = S$type-identifier 


BeEoCRIPTION: 
A pointer tyoe 7S) 4 “9voernrteapte “bound sto another 
Vain ail 6. It consists of an unbounded set of values 


Soimeimag to rts bound variable. The value NIL is 
always an element of a pointer variable and points to 


no element at all. 


EXAMPLE: 


TYPE link = Srelative 
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Procedure cal] 


ELEMENT: 


Procedure cal! 


FORMAT: 


CALL procedure-name {(parameter (,parameter} )} 


DESCRIPTION: 


Procedure calls are the statements which invoke the 
execution of a predefined procedure. Upon completion 
of the procedure the execution resumes at the next 


statement following the call. 


EXAMPLE: 


CALL printname 
CALL largest (number!, numbered) 
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BEEMENT : 


Reserved words 


DESCRIPTION: 


Reserved words 


Keywords used in NPS-PASCAL are reaserved words) and 
are not allowed to be used as identifiers. The 
follwing list are NPS-PASCAL reserved words: 

AND END NIL SE | 

ARRAY FILE NOT THEN 

BEGIN FOR OF lO 

CASE FUNCTION OR ieee 

CONST GOTO PACKED UNTIL 

DIV [rF POOR se Vv Air 

DO IN PROGRAM AWHILE 

DOWNTO LABEL RECORD WITH 

EG SE MOD REPEAT 


S)8: 





Repeat statement 


ELEMENT : 


Repeat statement 


EXAMPLES 


REPEAT statement {rstatement} UNTIL expression 


WESCRIPTION: 


The sequence of Statements 1S executed at least once 
until the condition of the expression 1S met. 


EXAMPLE: 


Feeeap es UNTIL n = 10 

REPEAT & initialize arrays & 
Bot he + 1G 
B(x a *) = 0.0; 

Nie A = 10 
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Repetitive statement 


ELEMENT: 


Revetitive statement 


HES@RIPTION: 


Repetitive statements specify that certain statements 
are to be executed repeatedly. In some cases the 
Number of repetitions may be known before the first 
repetitive execution. In other cases the condition to 
Stop repeating the execution 1S determinea after 


execution of a statement. 


EXAMPLE: 


See While statement, repeat statement, and 
For statement. 
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RECORD types 


ELEMENT: 


RECORD types 


FORMAT: 


TYPE record-name = RECORD field-list END 


DESCRIPTION: 


A record is a temolate for a structure whose parts may 
mie eounpresdistinet characteristics. It comsists of a 
fixed number of components, called fields. Components 


Can not be directly indexed. 


EXAMPLE: 


iyetedeate = RECORD mo : (jansaor,sjulroct); 
Gov on lec 1 

year : INTEGER 

END 
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remarks 


ELEMENT: 


remarks 


FORMAT: 


& comment & 


DESCRIPTION: 


Remarks are useaq to document programs. Any remark 
placed between the delimiters can be inserted in a 
program without causina an alteration in the program's 


meaning. 
EXAMPLE: 


®& beainning of execution phase & 
& this routine changes integer signs & 
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REAM / READLN 


ELEMENT: 


READ / READLN statements 


FORMAT: 


READ(variable-list) 
READCfile=name, variable-list) 
READLN(variable-list) 


READLN(Cfile=e=name, variable-list) 


BESCRIPTION: 


The READ and READLN procedures allow jinout from 
external files or the default inout device to the 
proqram. The first parameter is the file from which to 
access data. If the first parameter is not a file 
identifier then the default file 1s the default input 
device. Read statements cause the next available value 
to be read from the file and assiqned to the variable 
whose name iS indicated as a parameter. When more than 
one variable value 1S read with the same statement the 
variable nmames in the variable list are separated by 


Commas. See inout. 


EXAMPLE: 


RPEAD (x) 

READ (x, Ys, z) 

Pepin (x(5)) 

REAOLN (testi,x,o,r) 
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SET types 


ELEMENT: 


SEU stvoes 


FORMAT: 


SET OF baser-type 


DESCRIPTION: 


SET types define a range of values which is the power 
set o f its base type. Base types must not be 
Structured types. Operators apolicable to. vale set 


types ares 


+ UNION 
= set difference 
® intersection 


IN membership 


EXAMPLE: 


SET OF week 
SET OF family 
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scalar types 


ELEMENT: 


scalar tynoes 


FORMAT: 


Scalarw-type~ident = ( identifier {,identifier}) 


BESCRIPTION: 


Scalar type defines an ordered set of values by 
enumeration of the identifiers which denote these 
values. The sequence in which the identifiers are 
declared is used in performing operations on the 


variables assiaqned this tyoe. 


EXAMPLE: 
color = (blue,s,redswhite) 
card = (jack,queen,kina,ace) 
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simple types 


SeeMENT s 


simple types 


FORMAT: 


scalar-type 
Subrangqe-type 


identifier 


PaeocCRIPTION: 


Simole types in NPS=PASCAL are the basic elements of 
all type structures. They consist of the identifiers, 
INTEGER, REAL, CHAR, and BKOOLEAN, Scalar defined 
tyoes and subranaes of INTEGER types, CHAR types, and 


scalar types are also included as simple types. 


EXAMPLE: 


See scalar types, subranage types, 
and identifier. 
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Subrange types 


ELEMENT: 


SubDrange types 


FORMAT: 


TYPE identifier : constant..constant 


BesCRIPTION: 


Subrange type 1s a subrange of another already defined 
scalar type called its associate scalar type. Subrange 
indicates the smallest and the laraest value in the 


subrange. Subranges of REAL are not allowed. 


FXAMPLE : 


VAR smal} 3: 1..53 
Workday < mon..ffy; 


wont als ¢ ‘'a'ts.«'’2'?: 
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Structured types 


ELEMENT: 


Structure? tyoes 


peoCRIPTION: 


Structured types are composed of other types. Options 
available to each structuring method indicate the 
prefered internal data Fepresentation. Type 
definition orefixed with the symbol PACKED economizes 


storage requirements (Packed option not implemented). 


EXAMPLE: 


See ARRAY type and RECORD type. 
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type BOOLEAN 


FLEMENTs: 


tyoe BOOLEAN 


DESCRIPTION: 


BOOLEAN tyoes assume a BOOLEAN value, one of the 
logical truth values denoted by the predefined 
identifiers TRUE or FALSE. Logical operators’) and 
relational operators yield BOOLEAN values when applied 


to BOOLEAN and arithmetic operands respectively. 


FXAMPLE: 


VAR errfla : BOOLEAN; 
VAR signx, exponx : BOOLEAN; 
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type CHAR 


ELEMENT: 


type CHAR 


mORMA Ts: 


TYPE typeridentifier = CHAR 


VAR variablewridentrifier : CHAR 


BEeSCRIPTION: 


The value of type CHAR is an element of a finite and 
ordered set of characters. For NPS=PASCAL the CHAR set 
is the ASCII character set. Characters enclosed in 


single quotation marks denote a constant type. 


EXAMPLE: 


TYPE text = CHAR 
Waneeerext = CHAR 





type [NTEGER 


FLEMENT: 


tvoe INTEGER 


FORMAT: 


TYPE typeridentifier = INTEGER - 


VAR variableridentifier : [INTEGER 


DESCRIPTION: 


The type INTEGER is an element of a defined sunset of 
whole numbers. In NPS=PASCAL the range of integers is 
Mpeomm= 56,107 —9to 56,766. Arithmetic operators with 
integer onmerands yield tnteger values. Relational 


operators with integer operands yield BOOLEAN values. 


EXAMPLE: 


Pvaemime = INTEGER 
VAR aszobe,c : INTEGER 





tyoe REAL 


PEeEMENT: 


type REAL 


FORMAT: 


TYPE typewidentifier = REAL 


VAR variableridentifier : REAL 


BescRiIPTION: 


A value of type REAL is an element of a defined subset 
of REAL numbers. In NPS=PASCAL the range of real 
numbers 18 expressed in BCN format, 14 decimal digits 
numbers, multiolied by a corresponding power of ten. 
The exponents of real numbers ranges between 763 = and 
oe Inputs may be expressed in exoonential forms, or 
real format. Decimal period must be preceded by at 
least one diait. Arithmetic operations using REAL 
Number operands yield REAL value answers. Relational 
operators with real number operands) yield BOOLEAN 


values. 


EXAMPLE: 


TYPE re = REAL 
VAR rerim °: REAL 





type def. part 


BeEMENT: 


type definition part 


FORMAT: 


Herre adentifrer = type {identifier = type} 


DESCRIPTION: 


Data types in NPS=PASCAL may be either described tn 
the variable declaration part or referenced by a type 
identifier. The type definition allows the creation of 
new tyoes. be definition determines a set of values 


and associates an identifier with the set. 


EXAMPLE: 


ale day = (mon,tuerwedrethu,frirs,sats, sun). 

TYPE color = (reds white, blue); 

Preemorry = ARRAY (* BOOLEAN,1 .. 10 *) OF 
INTEGER 





unbalanced 


SeMeENT : 


unbalanced statement 


FORMAT: 


IF expression TKEN statement 
IF expression TREN balanced=-statement 


ELSE unbalanced-statement 


DESCRIPTION: 


Unbalanced Statement are 2 form of the 
conditional statement with an equal number of 
ELSE parts. This odistiction was needed to 


LALR(1) parsable lanquage. 


FXAMPLE: 


See IF statement, and balanced statement. 
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Statement 


ie 
THEN and 
form a 





Vor \ oouemcdec. Dart 


ELEMENT: 


variable declaration part 


FORMAT: 


VAR identifier {,identifier}: type 


{;identifier {,identifier}}: type 


DESCRIPTION: 


Every variable occuring in a statement must be 
Geclared in the variable declaration part prior to its 
use 1m the program. The variable declaration part 


associates the identifier with a data type. 


EXAMPLE: 
VAR counter, loop : INTEGER; 


errflg : BOQLEAN; 
VAR pi 3: REAL; 
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APPENDIX D NPS=PASCAL LANGUAGE STRUCTURE 


The following section describes the NPS=PASCAL language 
in BNF notation as moaified to conform with the requirements 
of reference (10), Pascal User Manual, and reference i hoes 
mser'’s Guide To The LALR(k) Parser Generator. Tne 
descriotion given describes the compiler data structures and 
the code generated. Numbered pOProductions without a 
Broduction result limaicate empty oproductionse Items 
enclosed in brackets and separated by slants are alternative 
memamtic actions. fms motatvom 1S the Same as orovided ~by 
references 19 and 13. 

1 <program> ::= <program heading> <bdlock> . 
x <program heading> <block> 
x ALL 3 { number of bytes allocated for variables } 
x ENDP ; { eof indicator } 
e <program heading> i: PROGRAM <prog ident> ( 
<file ident> ) ; 
* <program identifier> <file identifier> 
4 PROGRAM <prog ident> ( 
<file ident> , <file ident> ) ; 
<program identifier> <file identifier> 


x <file identifier> 


G“ <prog ident> ::= <identifier> 
N/A 


5S <file ident> ::2= <identifier> 
x { enter file identifier } 


6 <block> ::2 <Idp> <cdp> <tdp> <vdp> <p fdp> <stmtp> 


* < label declaration part > 
* < constant declaration part > 
x < type declaration part > 
x < yariable declaration part > 
* < procedure and function declaration part > 
x < program statement > 
7 <ldpo> : 





8 LABEL <label strinag> ; 
—ewiaioel String > 


veeeraoe | String> ¢::= <label> 
x < label > ; { enter label } 


10 <label Shel 1 ince » <label> 
* < label string > < label > 3; { enter label } 


11 <label> ::= <number> 
k < number > ; { check number tyne } 


he <cap> : 
x < empty 


i CONST <const def> ; 
kx < constant aefinition > 


14 <const def> 3::= <ident const def> 
ke < identifier constant definition > 


15 <const def> ; <ident const aef> 
x < constant oefinition > 
xe < identifier constant definition > 
16 <ident const def> :3:= <ident const> = <constant> 
< identifier constant > < constant > 
zk { enter constant } 


oy, <Vdeme const> :2:= <jidentifier> 
kx < identifier > ; { enter constant entry } 


= <number> 
{ assign constant attribdutes } 


18 <constant> 3; 
* < number > ; 
19 <sian> <number> 
x < sign > < number > ; { set constant attributes } 


20 <constant ident> 
kx < constant identifier > { set constant attributes } 


2 | <sign> <constant ident> 
< sign > < constant identifier > 


* { assign constant attributes } 


ee <string> 
* < string > 3; { assign constant attributes } 


23 <constant iaent> 3::= <identifier> 
x < identifier } 


CH <sign> 3:5 + 
* { assign SIGNTYPE value } 


ae se! 





* { assign SIGNTYPE value } 
acest ao> :° 


kx < emoty > 7; { set CASESSTMT to FALSE } 


By iY PEIs<tyoe def string> ; 
~e—wevyoe definition string > { set CASESSIMI FALSE } 


Soper ype Get String> : 
x < tyoe identifier > 


29 <type def string> ; <type id> 
* < type definition string > < type identifier > 


30 <type id> ::= <type ids> = <tyoe> 
< type identifiers > < type > 
{ alter tyoe entry } 


SJ Quvigie s1cdS> ¢3= <identifier> 
x < identifier > ; { enter type } 
: <simole type> 


$e 06 <type> = 
tyce > 


x < simple 


33 <structured type> 
kx < Structured type > 


34 <pointer type> 
* < pointer type > 


35 <simole type> t= <scalar type> 


x < scalar tyce > 


36 <subrangqe type> 
x < gubrange tyoe > 


7 <type ident> 
x <€< type identifier > 


38 <type ident> ::= <identifier> 
x < jdentifier > 7 { set FYPESLOCT } 


39 <scalar type> ::2= ¢€ <tident string? ) 
x < type identifier string > 


40 <tident string> ::= <identifier> 
* < identifier > 
x { enter type } 


4 <tident string> - <identifier> 
* < type identifier string > < identifier > 
x { enter tyoe } 


42 <subrange type> ::= <constant> .-. <constant> 
* < constant > < constant > 7 { enter subrange } 
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43 


Ssemucrured tyoe> 2: <unpacked structured tyoe>o 
< unoacked structured tyoe > 


x 
Gy PACKED 
<unpacked structured type> 
x < undacked structured type > 
45 <unpacked structured type> ::2 <array type> 
x < array type > 
46 <record type> 
* < record tyce > 
Q7 <set type> 
zk < set type > 
48 <file type> 
ke < file type > 
49 <array tyoe> 3::= ARRAY <lp> <index type string> 
<rpo> OF <component type> 
x < Ip > < incex type string > < rp > 
x < component type > ; { enter array type } 
Soest Oo> $35 (% 
N/A 
Sic ro> ?:$= *) 
N/A 
S52 <index type string> 3:3:= <index type> 
* < imdex type > ; { set array dimensions } 
53 <index type string> , 
<index type> 
k < index type string > < tndex type > 
x { set array dimensions } 
54 <index type> ::= <simole type> 
kx < Simole tyre > 
55 <component type> 3:3:= <type> 
x tyoe > 
S56 <record type> 3:3:= RECORD <field list> END 
ke< freld list > + { enter record type } 
Sr e<tiela !ist> 3:35 <fixed part> 
x < fixed part > 
58 <fixed part> - <variant part> 
x < fixed part > < variant part > 
59 <variant part> 


& 


< variant part > 





60 <fixed part> ::= <record section> 
xk < fecord section > 
6 1 <fixed part> 7; <record section> 


x < fixed part > < record section > 


6e€ <recora section> ::= <field ident string> : <type> 
< field identifier string > < type > 
x { enter reccrd attributes } 


63 
x < empty > 


64 <field ident string> ::= <field ident> 
* < field identifier > 


65 <field ident string> , 
<field ident> 
* < field tdentifier strina > < field identifier > 


66 <field tdent> ::= <identifier> 
x < identifier > ; { enter record field } 


67 <variant part> 3::= CASE <tag field> <type ident> OF 
<variant string> 
kx < tag field > < type identifier > < variant string > 


68 CASE <type ident> OF 
<variant string> 
x < type identifier > < variant string > 


69 <variant string> ::= <variant> 
x < variant > 


70 <variant string> 7 <vartant> 
~“e—mvariant string > < variant > 


71 =<tag field> :3:= <field ident> ; 
x < field identifier > ; { set TAGSFD to TRUE } 


72 <variant> ::= <case label list> : ( <field list> ) 
x < case label list > < field list > 


73 
x < empty > 


oe 


= <case label> 


ee 


74 <case label list> 
x < case label > 


aS <case label list? , 


<case label> 
x < case label list > < case label > 


76 <case label> 3::= <constant> 
* < constant > 
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* { { set variant attributes } / { set CASESSTIMI } ) 


“set type> ;:= SET OF <base type> 
zx < base type > ; { enter type } 


<base type> : 
* < simple tyce 


= <simple type> 
> 


<file tyoe> ::= FILE OF <tyoe> 
ke < tyme > - { enter type } 


<pointer tyre> = $ <tyne ident> 


81 


Be 


a5 


84 
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88 


89 


20 


2) 


pe 


x < type identifier > 3; { enter type } 


Me 


<vdp> ::= 
x < empty > 
VAR <var declar String> ; 
* < variable aceclaration string > 
“Vemeaeclanr Strima> i:= <yvyvar declar> 
* < variable ceclaration > 
<var declar strina> , 
<var declar> 
x < variable ceclaration string > 
x < variable ceclaration > 
<VYar Geciar> ::= <ident var String> 3: <type> 
x < identifier variable string > < type > 
* { set variable attributes } 
<“demt var String> <:= <identifier> 
x < identifier > ; { enter variable } 
<ident var string? , 
<identifier> 
< jdentifier variable string > < identifier > 
{ enter variable } 
<9 fdo> c= 
x < emoty > { not implemented } 
<porf declar> 
* < procedure or function declaration > 
x { not implemented } 
<porf declar> ::= <proc or funct> ; 
x { not implemented } 
<porf declar> <proc or funct> ; 
x { not implemented } 
<proc or funct> ::= <procedure declaration> 
x { not imolemented } 
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99 


100 


101 


102 


OS 


104 


105 


106 


O07 


108 
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<function declaration> 
{ not imolemented } 


<procedure ceclaration> ::= <procedure headina> 
<pblock> 
{ not imolemented } 


<procedure heading> ::= <proc id> ; 
{ not implemented } | 


<oroc “i1da>. ¢ 
<formal oara sect Jlist> ) ; 
{ not imolemented } 


“pGOG 102 ::= PROCEDURE <identifier> 
{ not implemented } 


<formal para sect !tist> $::= <formal para sect> 
{ not imolemented } 


<formal para sect list> 


, <formal para sect> 
{ not implemented } 


<formal para sect> ::= <para group> 
{ not imolemented } 


VAR <para group> 
{ not implemented } 


FUNCTION <para aqroup> 
{ not implemented } 


PROCEDURE <proc ident list> 
{ not implemented } 
<proc ident list> <= <jdentifier> 
{ not imolemented 


<proc ident Jist> » 
<identifier> 
{ not imolemrented } 


<para group> ::= <para ident list> =: <type 1dent> 
{ not implemented } 


<para ident list> <jdentifier> 


{ not imolemented 


~~" 60 


<para ident list> ,» 
<jdentifier> 
{ not imolerented } 


<function heading> <block> 


<function declar> 


bee 





* 


Ee <functtion headina> 2>= <funct id> : <result type> 
ze { not implemented } 
ely 1 <Tunct a> 5.6 
<formal oara list> ) 
> <result type> ; 
x { not imolerented } 
lie <funet 1d> :3:= FUNCTION <identifier> 
x { not imolemented } 
113 <result type> ::= <type ident> 
zx { not implemented } 
114 <stmto> ::= <compound stmt> 
kx < compound statement > 
mioeeecstmt> :3:= <bal stmt> 
x < balanced statement > 
116 <unbal stmt> 
x < unbalancec statement > 
117 <label def> <stmt> 
x < label definition > < statement > 
118 <bal stmt> s:="<if clause> <true part> ELSE 
<Dalistmt> 
xo > «6fl U6 EthUhL abel addresse } 
119 <simple stmt> 
x < simple statement > 
120 <unbal stmt> ::= <if clause> <stmt> 
x LBL ;-; { If Label address! } 
bea <if clause> <true part> ELSE 
<unbal stmt> 
* LBL ; { If Label addresse } 
122 <if clause> ::= <if> <expression> THEN 
menue BtLC ; { Lf Label acdress!l } 
lect f S= LF 
N/A 
124 <true part> ::= <bal stmt> 
xe < balanced statement > 
x BRL ; { JI# Label addresse } - LBL ; 
te { If Label addressl } 
125 <label def> <label> : 


{ not implemented } 


x < label > 3 LBL ; { label address } 


le5 


Cd 
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ioe 


PS 


134 


135 


136 


iy 


138 


39 


140 


141 


142 


143 


& 


® 


* 


& 


x 


x { not implemented } 


<simple stmt> ::= <assiaqnment stmt> 
< assignment statement > 


<orocedure stmt> 
< procedure statement > 


<repetitive stmt> 
< repetitive statement > 


<case stmt> 
< case statement > 


<with stmt> 
< with statement > 


<read stmt> 
< read statement > 


<write stmt> 
< write statement > 


<goto stmt>o 
< aqoto statement > 


<comoound stmt> 
< compound statement > 


< emoty statement > 


<assignment stmt> ::= <variable> 

< variable > < expression > ; LIT 
{ variable address } 

{ STO/STDI/STOB/ ( CNAI/STDOB ) J) 


s= <exoression> 
, 


<variable> ::= <entire variable> 
< entire variable > 


<variable> § 
{ not implemented } 


<variable> <lo> <express Jlist> <rp> 
{ not timolemented } 


<variable> . <field ident> 
{ not imolemented } 


<entire variable> variable i1dent> 


Se < 
< variable identifier > 


<variable icent> ::= <identifier> 
< identifier > 3 4 set variable location/tyoe } 


<exopress list> = <expression> 
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a 


144 . <exopress l]ist> , <expression> 
x { not imolemented } 


145 <expression> ::= <simople expression> 
x < simple excpression > 


146 <simple expression> 
<relational operator> 
<simole expression> 
< simple expression > < relational operator > 
< simple expression > - ( EQLI/NEQI/LEQI/GEQI/ 
LSSI/GRIIZ €( IN not implemented ) /EQLB/NEQB/ 
LEQB/GEQB/LSSB/GRITB Jj 


+ & + 


147 <relational operator> :3: 5 = 
x { set operator type } 


148 <> 
x { set operator tyne } 


149 <2 
zk { set operator tyne } 


50 > = 
x { set operator type } 


LS | < 
x { set operator type } 


152 > 
x { set operator type } 


LS 5 IN 
x { set operator type } 


i154 <term> <factor> 


<< tTactor > 


iS <term> <multiplyina operator> <factor> 
< term > < mulitolying operator > < factor > 
( MULI/MULB/ ( CNVI 5 Chee; OLIVE 2° /DIVG 
DIVI/DCRI/AND 1) + { MOD not implemented } 


156 <multiplying operator> ::5 * 
* { set operator type } 


157 / 
x { set operator tyne } 


aye DIV 
x { set operator type } 


159 MOD 
* { set operator type } 


hee 





160 AND 
x { set ooerator type } 


161 <simole expression> ::= <term> 
k < term > 


16¢e <sign> <term> 
k € sian > < term > ; { NEGI/NEGB ) 


163 <simole expression> 
<adding operator> <term> 
< simple expression > < adding onerator > < term > 
{ ADDI/ADDB/SUBI/SUBB/BOR J 


164 <adding onoerator> :3:= + 
* { set operator type } 
165 - 
x { set operator type } 
166 OR 


x { set operator type } 


167 <factor> ::= <variable> 

< variabte > ; (€ LDII + { interger value }/ 
LDIB ; { BCD real value }/ 

NEGI/NEGB/LITA 7; { variable address } 
LOD/LODI/LOCDB } 


+ * 4 


168 <variable> (=<actual oars ist.) 
x { not implemented } 


169 ( <exoression> ) 
x < expression > 


170 <set> 
x { not imolemented } 


i714 NOT <factor> 
ect actor > - NOT 


i72 <number> 
x < number > 
( LDII +: { integer value } / 
LDIB ; { BCD real value } ) 


5 NIL 
N/A 


174 <strina> 
x { not implemented } 


175 <actual para list> ::= <actual para> 
x { not implemented } 
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iis: 


* 


<actual para list> , 
. <actual para> 
{ not implemented } 


1/7 <set> %:= <lp> <element list> <rp> 
* { not implemented } 
178 <element list> :::2 
kt < empty > 
179 <xelement list> 
* { not implemented } 
180 <xelement list> ::= <element> 
x { not imolemented } 
181 <xelement list> +» <element> 
x { not implemented } 
182 <element> ::= <exoression> 
kx { not implemented } 
183 <expression> .. <expression> 
x { not implemented } 
184 <goto stmt> ::= <qoto> <label> 
< goto > < label > 
{ label address } 
Pose <Qotmo> ::= GOTO 
x BRL 
Neo) <Compound stmt> 3::= <begin> <stmt lists> END 
za < hegin > < statement Jists > 
187 <begin> ::= BEGIN 
N/A 
188 <stmt lists> :3:= <stmt> 
x < statement > 
189° <stmt lists> « <stmt> 
x < gtatement lists > < statement > 
190 <procedure stmt> ::= <procedure ident> 
x { not imolemented } 
191 <procedure ident> ( 
<actual oara list> ) 
x { not implemented } 
192 <procedure ident> ::= <identifier> 
x { not imolemented } 
193 <actual para> ::= <expression> 
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* { not implemented } 


194 <rec variable Jlist> ::= <yariable> 
kt { not imolemented } 


195 <rec variable Fist> , 
<variable> 
x { not imolemented } 


196 ereaag sStmt> <:= <rpesad head> ( <io list> ) 
x < read hnead > 10 list > 


A 


197 <read head> ::= READ 
ke { set WRITESSTMT to FALSE } 
wersec OLuUGCATE to FALSE (€ don't skio to new line) } 


198 READLN 
(eset WRITEESIMT to FALSE } 
jsetmnemOCATE to TRUE (€ skip to new line ) } 


199 SGuryre stmt> ~:2= <write head> ( <io Jlist> )} 
x < write heaaq > < 10 Jist > 
x { if ALLOCATE then DUMP ) 


200 <write head> 
x < write heao > 
* [ if ALLOCATE then DUMP ) 


c0i <write head> 3::= WRITE 
fecet WRITEESIMT to TRUE } 
Receat ALLOCATE to FALSE } 


202 WRITELN 
x { set WRITEESSTMT to TRUE } 
x { set ALLOCATE to TRUE } 


Bceeciag }ist> ::= <file ident> * , <var tist> 
x { not implemented } 


204 <VYar |1St2 
x < variable list > 


205 <var list> ::= <variable> 
x < variable > 3 ( WRVI/WRVB/RDVI/RDVB 
( STDI/STDB - read statements only ) } 


206 “Str ima 
< string > ; WRVS ¢ { string } 
{ write statement only } 


207 <var list> , <variable> 
x < yariable list > < variable > 
* { WRVI/WRVB/RDVI/RDVB ¢€ STDI/STDB - 
kx read statement only ) } 
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208 <var list> , <string> 
meomvarlable 13st > < string > 


* WRVS - { string } ( write statement only ) 


209 <case stmt> 3:3:= <case express> 


<case list elemt list> END 
x { not imnolemented } 


O10 <case express> 33 
x { not implemented } 


CASE <exoression> OF 


ei <case list elemt list> :3:= <case list elemt> 
* { not implemented } 


ele €case list elemt list> ; 
<case list elemt> 
x { not implemented } 


213 <case list elemt> 
* < emoty > 


Pom | case, label listce. <scmt— 
x { not implemented } 


215 <repetitive stmt> 
* < while statement > 


<while stmt> 


cl6é <repveat stmto 
kx < repeat statement ? 


cil7 <foGes emus 
x < for statement > 


cig <with stmt> 322 <with> <rec variable list> <do> 
<pal stmt> 
x { not implemented } 


clgy <with> ::= WITH 
x { not implemented } 


a) ©) 
molemented } 


Zou <doO> 3: 
x { not 
eel <while stmt> ::= <while> <expression> <do> 
<bal stmt 
* { not imolemented } 


Eeeeeecanile> 2~:= WHILE 
x { not implemented } 


Beegeeecetor stmt> $::= <for> <control variable> 3: 
<for list> <do> <bal stmt> 
x { not implemented } 


Bei <for> ::= FOR 


[2° 





® 


{ not imolermrented } 


Beome-tor list> ¢$3= <initial list> <to> <final value> 
x { not implemented } 
Cece <initial value><downto> <final value> 
x { not imolerented } 
227 <eontrol variable> *:2= <identifier> 
x { not imolerented } 
2ceB <initial value> ::= <expression> 
x { not imolemented } 
ec9) << final value> 3::= <exoression> 
x { not implemented } 
230 <repeat stmt> :3:= <repeat> <stmt lists> <until> 
<expression> 
* < repeat > < statement lists > < until > 
meee xoression > ; NOT ; BLOC ; { set REPEATSLBL } 
2 1 <repeat> ::= REPEAT 
*« LBL ; { REPEATSLBL } 
Beeeent) i> ¢3:= UNTIL 
N/A 
Zoe o> 3 3= %T0 
x { not implemented } 
234 <downto> = DOWNTO 


x { not implemented } 
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NPG - PASCAL PROGRAM LISTINGS 


*169h: 7kload point for compiler*/ 


ee te FEO RE NESE GE HES KOK SR SK OK NS ES OK EE 
A KRRBKRMBRBRBRRR KB KK HK HK OK OK OK KEK IK IKK OK KOK SK OK OK KOK OK EG RAE KOK HEE EE OK 9 OK KOK KKK KKK KEES KOK KK 
SRAM system litera a Ss KK 
ea te eat ee TARE NEARER LEELA E RA ER KERR EGER KO LOK K KK 
SERRA RITE TRI BERTH MH HRI HE HIRT TR RR RTE KR RT RR 
declare lit literally ’literally’, 
er bit, > 13°, 
lf lit ’@ah’, 
del lit ’declare’, 
pos lit’ Oe, 
neg crt, 
tab lit °99h’, 
proc lit ’procedure’ 
bdos lit ‘Sh’, /xentry point to disk op. sys%*/ 
boot eit. 0.~, /* exit to return to op. sys. * 
true Met 1’, 
addr lit ’address’, 
minusx ite 2dh’ , 
rfile hit ° 290’, 
false tot, O" , 
maxint lit 132767", 
bcedsize Prt 7-6"; 
ands ign lit °26h’, 
fileeof ie oh, 
eolchar lit ° Odb’ , 
maxOnest Pit * 3, 
forever lit ‘while true’ 
comment Pit *9’, 
vares ize lit °1969’, 
has hmask ie (Cd 
formmas k iS je eae ae 
typeSentry ito a. 
varSentry Lit 3, 
typeSdc le Pit Cm, 
typemask lit ‘@0111090b’, 
contchar lit ’5Sch’, 
codesize addr, 7% used to count size of code area */4 
identsize kt 6 32", 
eoffiller lgt "lah’ , 
statesize lit ’address’, 
indexs ize lit ’address’, 
ps tacks ize lit °48’, /* stack size for parser */7 
firstStime byte initial (true), 
identifier bie  o2" , 
intrecsize lit °128’, 
fileSentry Pot. 6’ « 
labiSentry lit 76’, 
consSentry fat -° 1”, 
maxoncount Pits 20 4 


conbuffsize fit G2’, 
stringdelim Pit ‘sch’ , 
hashtbls ize lit, 128’, 
questionmark lit ‘3fh’, 
maxSnumGarrySdimen lit °5’, 
arryOnest lit °4’, 
consSstrStype lit °3’, 
consSnumStype lit °9’ 
consSidentStype lit : 
consSsidentStype lit ’2 
sourcerecsize lit +1287; 


hd 
= = <= 


5 
b] 


/* number types */7 
dc l ordStype Lita Oo , 
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dcl 


dcl 


charStype at ee” 
intezerStype lit ’1’ 
realStype Pit 2 
unsignSexpon lit °3’ 
SignedSexpon lit °4’ 
complexOtype lit °4’ 


d = Me 2 ~~ = = ww 


strineStype lit °’ 

booleanSiype lit °5’ 

signtype byte, 

consiStype byte; 7% type of constant */ 

maxrno lit 1e2", * max read count */Z 

maxlno ie eo” . 4% max look count */ 

ma xDno lit) 2¢0" , 7* max push count */ 

maxsno lit °516’, /% max state count */ 
starts tite * 1’, /* start state */ 

prodno ie, Oe * mumber of productions */ 
eofec it - 2o° /* eof */ 

numbperc Int 70S’, 4* number */ 

stringc Lite co. 7*® string */ 

termno rt, O22 /* terminal count */ 

sbloc addr initial(8Oh), 

form byte, 

expon byte, 

vecptr byte, 

lineno addr, 

typcnum byte, 

rfcbaddr addr initial (5ch), 

constSpir byte, 

startbdos addr initial(6h), /*addr of ptr to top of bdos*/ 
lablcount addr initial(0), /%* number of labels used */ 
max based startbdos addr, 

crrorcount addr initial (6), 

typeSaddr addr, 

typeSloct addr, 

varoptir byte, 


varStype(16) byte, 
varSsign( 10) byte, 
expStype(1ll) byte, /* type of expression */ 

expStypeSaddr(i1) addr, /* addr of scalar parent type */ 


expSptr byte initial (9), 

opStype(19) byte, 

opSptr byte initial (9), 

caseSsimt byte initial (false), /* in case stmt */ 
writeSstmt byte initial (false), /7* in write stmt */ 
repeatSlb1(190) addr, 

reveatSptr byte initial (9), 

allocate byte, “* irue or false */ 


allcSbasicStype byte, 
arryOqty(maxSnumSarrySdimen) addr, 
varSbase(10) addr, 

varSbasel(19) addr, 


typeSind=x byte, 
allcSqty addr, 
typeform byte, 
allocSaddr addr initial (6), 


typeSordSnum byte, 
parentStype adir, 
constSindx byte, 
lookupSaddr addr, 
constSvec( 4) byte, 
constSvalue( 162) byte, 
constSpnShash(4) byte, 


constSpuSptr byte, 

constSpnSsize(4) byte, 
integerSdiff addr, 
subrSva1(2) addr, 
subrStype(2) byte, 
subrSptr byte, 
subrStypeSaddr addr, 
subrSform byte, 
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subrSpnSs ign byte, 


arryoSObase addr, 
arryOptr byte, 
arryodimoptr byte, 
ptrptr byte, 
ifSptr byte initial (255), 
ifS1b1 (1) addr, /* if statement stack %/ 


tagSfd(maxSnest) byte, 
varScasStp(maxSnest) addr, 
varScasSval(maxSnest) addr, 
recOvarStyp(maxSnest) byte, 
reconst byte initial (255), 
recordoptr byte, 
recSaddr(6) addr, 
recSparSadr(mazxGnest) addr, 
variantSpart(maxSnest) byte, 
fxdSofstSbse(maxSnest) addr, 
varSofetSbse(€maxrSnest) addr, 
curSofst(maxSnest) addr, 
numvarryod imen(maxSnumGarr ySd imen) byte, 
arrySdimen(25) addr, 
aryodmSadrSptr byte, 
constSnumStype(4) byte, 
bednum(bedsize) byte, 


rfcb based rfcbaddr (33) byte, 

no look byte, 

lineptr byte initial (60), 

burfptr byte ind tial €255), 

wicno(33) byte initial (6,°’ *, pin’ ,6,0,9,9), 
sourceptr byte initial (sourcerecsize), 

nointfile byte initial (false), 

sourcebuff based sbloe (sourcerecsize) byte, 
production byte, 


prvSsbtblSentry addr, 

cursourcerecsize byte initial (sourcerecsize), 
linebuff(conbuffsize) byte, 
diskoutbuff(intrecsize) byte; 


del imit®symbStbl data(O,6,0,0,42h,7,’i’,’n’,’t’,’e’,’o',’e’, 
tr, 6,058,0,4ah,4,'’r’,’e*,’a’,’ 1 /0V0,0,0,52h,4,'c*, hn’, 'a’, 
pr 5o .O,0,0n,¢,° b’,'o’,’o’,’1*,’e"*,’ a’, '’ nun’ SO, 0,8 Geh, 
eet. pb}, u’,’ t’,8,0,0,9,feh,6, Yo’. ’u’.%t’,’p’,’u’,’t?. 
9,9,9,0,09b,4,’t’,’r’, *u’,’e’ 6;9,9,6':0,0,0,0,09h,5,’°f’,’a’, 
wiwma, e¢° .O,.0.. 1,0) ; 


J TR RRR RR KR RR KB OK KR ORR ROK OK OK RS RNS RK RK OK TR OR OK RE OK OR RK ROK ROR ROK OK OK ROK KR EE OK KK KK EK OR OK OK ROK EK SKK 
Yee rle he of he loa oie hI A RIA IK NCC IR AC ER NC OK CE I KN I A A CE SK SE OR NE EE IK CK 
SRR scanner global variables KKK 
A RRR KR RK KK KR RR KR RK OK RK KK OE EK KK OK KOR OK OK RK RK AE KOK KR RK OR ROK UE OR AE OK ORK OK KK OK OK KK RK OK KKK KKK EK 
ache oie ake la le oho ake OF He RCH He SKE ROR EK KCK BK EK KE EK SS OK KK SRE EK RK ACK EK SK KK EK OK KE 


dc l token byte, /% type of token Just scanned * 
kas hcode byte, * has value of current token * 
nextchar byte, /scurrent character fm getchar* 
cont byte, /*kindzx full accum. still more * 
accum(identsize) byte; /* holds current token */ 


A RRR RIK BR RK KK KI KK OK KK EK IK IK IK KR KK EK KK RR IK EE OK KK OK KK OR EK OB OK OK OK KR RK TK KOK KEK KKK KK 
SRK KAR KAR RIKER RHR IIR RK KERR RRR KR RK KR RRR RI IR RK I RK 
PRR symbol table global variables KKK 
A RRKRRRKK KKK RK KKK KK RK KKK RK RK KR KKK KKK KKK KK RK KK KKK KK BORK ARR RK ROK RR KBB OB ROK KOK 
A RERRBERR BRK BK RK KR KKK KK KKK KKK RK EK KK EK KR RIK RK RK KK AK BKK OK OR OK OR OK KK OB OK KK KK RK OK NK IKK 


dcl base addr, /%base of current entry */ 
hashtable(hashtblsize) addr, 
sbtbltop addr, /Xeurrent top of table (sym) */ 
sbtbl addr, 
ptr based base byte, /* Ist byte of entry */ 
aptraddr addr, /* utility variable to access table */ 


addrptr based aptraddr addr, 
byteptr based apitraddr byte, 
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printname addr, 7* set prior to lookup or enter %S 
symhash byte; 


declare readl data(0,56,25, 12, 14,62,62,34,50,61,62,59, 62,62, 11 8.8.8.13 
»§2,62,62,62,62,59,62,59,62, 14,3,4,9,58,59,62,3,4,5,9,33,37.43.51.5 
.58,59,62,3,4,9,58,59,62,3, 16,31, 32, 58,59, 62, 22,62,62,.62.3.4.9 16.3 
,32,58,59, 62,22, 62, 16,62,58,33,37, 43,53, 35,62, 62,62, 62,62,20 29.35 
,38,39,42,44,48,49,52,54,57,62,22,41,62,45,34,60,61,58,62,6, 10.26.2 
»39,62,20,29,35,38,39,42,44,48,49,52,54,57,58, 62,1, 13,44,7,7,3.8, 15 
»3,13,14,11,1,5,16,18,1,3,5,16,8,3,36,36,22, 40, 19,7, 15,28,7,7, 11.7, 
.8,3,8,28,8, 47,22, 22,3, 11,17, 13,14,8,8, 17,8, 11,24,50,8,8,7, 11.11 
»11,13,11,13,11,19,11,3,46,8,7,11,7,11,18,11,18,11,17,11,19,2,4, 


ie 
8 
,14,21,23,4,9,23,6,11, 13,8,28,7,8,7,8,9,0,0,9,9): 


oF! 

declare lookl data(9, 12,14,9,35,62,0,62,0,62,0,62,0,35,62,0,8,28,47,9,8 
,28,90,7,8,28,9, 14,9,8,28,5,7,3,28,0,7,8, 28, 0, 8, 28, 36, 47,0, 36,0,35,6 
»9,15,9,1,5,16,18,0,13,9,6,9,9,9,9,17,0,41,0,45,0,34,9,44,0,6, 10,26 
,2¢,39,0,5, 190,26,27,39,9,6, 19,25,27,39,9,8,28,0,8,47,9, 36,9, 11,6, 11 
»9,1,3,5,16,0, 11,19,0,7,11,0,11,19,0,7,11,9,8,28, 36, 47,0, 36,9,8, 23 
»4¢,0,15,9,8,0,3,9,44,0,8,23,0,11,0,8,8,8,9,11,9,3,0,46,0,46,0,46,0 
Wome la, it, 21,23,9,4,9,23,0): 


declare applyl data(9,9,9,9,5,39,0, 179, 182,9,0,0,29,75,97,0,0,9,21,9,0 
»27,28,97,52,54,69,62, 158,9,98,0,27,28,35,37,45,47,52,53,54,58,59,6 
,61,62,87,155,9,6,9,22,9,9,45,47,59,61,9,35,58, 87,9, 15,46,48,59,67 
,132,9,9,9,0,9,76,9,9, 73, 121, 122, 123, 124, 125, 126,06, 152, 159,0,6,35,0 
»9,9,14,9,9,24,0,9,3,33,67,9,24,0,62,9,9,28,0, 27, 152,6,37,0,0,9,9,0 
»9,9,23,9,9,9,9,155,0,9,9,9,8,9,25,6,9,66,89,0,9,9,0,0,50,0,0, 25,49 
»128,139,9,69,70,83,64,85, 128, 129,6,69,6,79,63,84,85, 129,9,6, 129,90, 
»9,9,16,11,25,36,41,43,49,69, 70,83, 84, 25, 153, 104, 111, 128, 129, 139,@e, 
»9,9,9,99,49,55,56,57,68, 83,88, 89,91, 108, 109, 110,0,9,99, 168,9,6, 188 
»9,9,63,199,9, 13,9,9,9,9,39,9,9,8, 1907,9,9,111,9,9,9,42,9,9,9,0,9,90 
»11,9,43,0,6,9,0,27,9,9,6,0,116,137,6,60,0,9,0,0,0,0,119,90,9,9,0,0,90 
Ves 


dcl read2(236) addr initial 

(9,78, 277,424,425 ,281,316, 66, 88, 82,383, 482, 212,314, 43 
»276,279, 372,50, 363,317,342, 384,381, 484,418, 482,418, 426, 194,390,301 
»29%4,298,299,5,399, 15 ,361,64, 71,73, 76, 208, 294, 298, 269,6,390,391, 294 
+298, 299 ,9, 3925, 449,689,445, 459,416,583, 362, 383,211,9,3800, 301,326,449 
,63,448,459,418,39,307,326, 293, 257, 64,71, 73,298,67,342, 289,388,373 
,369,399 ,509,68,461,473,495 ,463, 495,477,474, 507 ,478,2190,61,72,583,7 
,935,79,31,295, 299, 432, 433, 4356, 494,435,418, 399,589, 68,461,473, 495, 46 
498, 477 , 474,507,478, 287,219,2, 401,463, 472,475,7,371,354,8,46,53, 41, 
»414,326,56,3, 13,414,325, 195, 10, 206, 207,486,398, 496, 445 ,55 ,332,348 
,17,30, 18,16, 198,35, 199, 462, 199 ,508, 204,2605,11,40,327 .347,52, 386,387 
1oe¢ ,2o4, 29,009 ,O 16, 366,367 ,315,32,39, 261,37,283,37,51,34,48, 38, 12 
,29,196,467,42, 444,42,357,31,45,35, 327,36, 496, 193,448,441, 202,423, 42 
»442 ,449, 441,442, 197,33,47,2990, 485 ,19,26,29,26,90,90,9,9,9); 


dcl look2( 171) addr initial 
(0,4,4,427, 14, 14, 252, 21,289 ,22,5903,23,358, 24, 24,253 
» 204, 254, 254, 25 , 255 ,255 , 27,256, 256, 255, 28, 44, 428, 257,257, 49,258,258 
, 298, 69, 259 , 259, 259, 62, 269, 260, 269, 269,69,261, 70,77, 77, 262, 299,314 
6418, 418,415,418, 468, 342,314, 231,418, 83,284,835, 263, 8B, 92, 264,94, 265 
,95, 266, 267 ,96,1909, 189, 1909, 199, 108,437, 101, 101, 1901, 101,101,438, 102 
, 192, 162, 102, 192, 439, 268, 268, 194, 269,269, 111,409,391,119,489, 129,47 
, 122, 122, 122, 122, 443,479,479, 123,481,481, 124,471,471, 123,483,463, 12 
wee 70,279,260, 1268, 271, 129, 272,272,272, 138, 139,458, 145,333, 151, #72 
,295,155,273, 273, 158, 165, 455, 166,344, 167,343, 172,379, 173,466, 174,27 
, 179,275, 182,276, 184, 184, 184, 184, 184, 184, 184,421, 185, 165, 185,422) ; 


dcl apply2(273) addr initial 

(9,90,247,146, 142, 143, 144, 885,379, 105,216, 160,285, 285 
,469, 106,217, 127, 291,299, 154,352,352, 352, 292, 316,352,352, 352, 115,29 
, 296,98, 28, 98, 98, 98, 98, 98, 98,7 9G, 98, 98, 9G, 98, 98, 96, 98, 99, 219, 175,305 
,394%,118,361,338,355,351,366,339,354, 339, 308, 356, 369 , 382, 389, 149,15 
, 313,311, 164,312,399, 320,319 ,321,87,89,89 ,89,89 ,69,89 ,216,415,453,9 
, 181,329 ,328,325,322, 141, 149,238,337,336, 187, 416,341, 153,349,334,33 
,244,243,1382,346,345, 169, 169, 179,351,350, 323,353, 324,316, 229, 186, 36 
,859, 189, 107, 249, 163, 162,358,249, 114, 192, 191,375,374,245 ,377,378, 37 
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dcl 


nema -celindexs.e datacs,1,1,.1,2,.1,1,4.4,9,2,2,.9,9,2,1,1,1,1,1,1,1,1,1,2, 1 
Semomarte il. ,1,1,1,6,1,5,1,9,9+2,9,2,1,12,1, 12,1,14,1,1,5,12,5,9,9, 
Beller orwicown.,, 1, 1,1.1,9,13,13,1,1,1.1,1,4.2,1,1,1,1,1, 13, 13,13,9,6 
Ae an’ Apa. 1. , |e || ae ae We, 5 050, Ie, 14, Ve Le. 959, 2, 14, i | ie Ly 2:, Es i; 
Sorrel ia. 19,14, 1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,.1,2,2,1,1,1,2 
Mipeeeeniemen i 2,2.1,1,2,1,1,1.7,.2,.2,2,1,1,1,1,2,2.1,1.2,2,1.2,7,.3, 
Proms. 2. 2,3,3,2,2,2,3,4,.3,4,2,3,4,4,5,2,3,2,5,2,2,1,1,1,2,2,2,2, 
mage. 2. 5.9, 3.3,3.0.2,4,2,2,2,2,93,.2.2,2,2:2,:2,.2.2,6,4; 1452 
,25,27,28,49,60,62,69,79,77, 88,92, 94,95, 96, 194, 111, 128, 129, 138, 1538 
9174, 179, 162,3.5.7,9,9,5,9,2,9,2,90,9,2,90,2,2,0,9,1,0,1,9,9,9,0,4,2, 
,2,2,0,0,9,9,9,9,9,9,2,9,2,2,9,1,9,9,9,9,5,9,0,9,2,6,0,2,9,2,9,6,2, 
,0,%2,9,4,3,9,2, We Onn 2, 6, 2a, Os 1,9,2,9,2,2,0,2,9,9, 20,9, Ll; ie 
9 14,0%,2, 8, i A, Peo, 2,85. aes ee 1,9,9,9,9, 1,354.0; 1,3,2,0,@, 1,9,9,9,9, 
,9,9,9,9,9,2,0,1,3,2,9,9,0,2,9,2,9,1,1,1,6,0,0,9,2,9,0,0,9,0,0,1,2, 
—0,0,0,0,2,9, 1,0,9,0,9,2,2,9,9,0,2,9,2,1,0,2,9,9,2,9,3,9,9,9,2,3,9, 
,3,9,9,9,3,0,0,9,2,2,2,2,9,2,9,2,9,9,9,3,9,6,3,9,5,9,2,2,9,0,9,3,90, 
,9,6); 


, 171,369,248, 117, 157, 156,252,465, 490,396,393, 464, , is a0 
'225/49,991,297 892,983 295.295 265205 284 06-134, 130 B06 805 doo 
,231,231, 121,282, 285,281, 121,121, 121, 121, 121, 121,230, 121, 121. 121. 12 
121,229,418, 417, 152, 183, 287,420,459, 412,504, 185, 186,237,419 .505.50 
, 187,505,459, 188, 222,923,221, 190.251.2590, 168.447.431.490. 177 176 44 
, 159,242,457, 455,409,97,899,410,224, 148, 147, 403, 246,452,451, 183,407 
181,498,289, 118, 112,228, 227,405,241, 189,488, 487,404,406, 103,215.21 
,213,491,109,498,93,115, 175, 161,502,501,492, 225, 108,91, 110); 


indezxi(S511) addr initial 
(9,1,2,21,3,5,6,7,7,64, 11, 11,64,64, 82, 18, 14, 15, 16,17 
pls. ¢0,7%,91,02, 119,7,39,39,77,5, 19,20,21,22,47, 115, 30, 28, 64,64, 24 
,64,26,25,55, 13,85, 13,116, 13,29,33,35,39, 64,64, 64,47, 35,39, 35,39,53 
,69,61,62,63,64, 85, £8, 73.74,75,76,77,78,82,84,85,62,86, 87, 88, 88,8ea 
»94,47,6%,564%, 191,64, 192, 103, 104, 195, 106,77, 108,53, 110,110,119, 115 
»116,139, 191, 132,64,64,64, 116, 133, 184, 185, 187, 156, 188, 140, 141, 141 
» 142,145,142, 142, 142, 142, 156, 116,68, 116,151, 13, 152, 158, 154, 155, 156 
, 157,155, 159, 166, 161,163, 164, 165, 156, 167, 169, 171, 172, 178, 174, 176,17 
, 196,178, 179,35, 130, 161, 160, 185, 185, 187, 189, 199, 199,53, 191, 198, 195 
, 197,198, 199, 299,291, 293,295, 199,206, 208, 199,219, 212, 219 , 222, 223,64 
Nee od coe pao, 1,4,7,9,11,13, 16,29,238,27,29,32, 36, 49,45, 47, 50452,5 
,59,61,562,63,54,66,66, 79, 72,7%4,89,86,92,95, 95, 190, 192, 164, 199,112 
,115,1153, 121, 126, 128, 182, 194, 1386, 183, 149, 143, 145, 147, 149,151, 158,15 
, 157,159, 167,339,339 ,411,489 ,349,411,349,3949,411,411,339,454,362,28 
,ooe oot, 211 ,411,411,411,411,469, 283,288,283, 1,2,2,3,4,7,19,19,11, 1 
mie toe lo,ide, ic, la, 20,21,21,21,21,2!1,36,32,382,49 ,49 ,590,56,51,53,54 
,54,54,59,59 ,59,63, 76,71,71,72, 73,73, 74, 74, 7%, 74, 76, 77,85 ,88, 88, 89 
,91,92,93,93,93,95 ,95,96,96,98, 98,99, 1963, 103, 195, 105, 197, 168, 168, 11 
migporeriae tion 110, 117,118,119,119, 120, 126, 121, 128, 123, 12%, 124, 125,12 
» 129, 126, 128, 129, 129, 139, 131, 1981, 1988, 19S, 1983, 18S, 1385, 135, 186, 189,13 
, 149,141, 141, 142, 143, 145, 146, 146, 140, 151, 151,159,159, 161, 167, 168, 17 
meee ict. 1¢t,171,171,171,171, 171,171, 172, 173, 173, 173, 173, 192, 19 
leer, 194, 195,195,210, 210,219,216,219.216,219,211,211,214,214,214,21 
Me eae to, clo, 2l?,2i?¢ 217,218,218, 218, 218, 218, 218, 216, 218, 221, 22 
ee ee, 220, 220,220, 226 , 228, 229 , 239, 2382, 233, 293 ,235, 235,236 ,23 
» 239 , 239 , 240, 241,241,242, 242, 243, 243, 244, 244, 246,246, 246, 246, 248, 24 
Be 5D Ocoee 1, fou, 250,200, 20%, 290, 256, 259, 260, 261 , 262, 263, 263, 26 
j200, 200, 260,209,270, 271,2¢2) ; 


4 


SHRINK SNA RRA RA BI ROR BIRR ORR RI IEAN RRB BEBE BRE BEBE EE EE RRR ERE RBBB BR 
ARR RRR RRR RB HNMR HS RN NK ABS RA RRA ERR RE RE ERE RB EE RB RAB BAKE KE KKK 


A RKRK 


gs loba tl procedures KKK 


SRR RRR IRIS RNR MSR RRR AS RIAN RBM EAE RE RR ER BEBE BB TRIE IE EE ER 
SRR RRR RNR I RNR RBI RRR OAK AMBRE BIRR AER RRR ERA KER REE REE EB ERK BERR 


monl: proc(f,a); 


end 


del f byte, 
a addr; 

go to bdos; 
monl ; 


mon2: proc (f,a) byte; 
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dc l f byte, a addr; 
go to bdos; 
end mon2; 


mon3: proc; fused to retur 
n to t *% 
soto boot; he system 


end mon3; 


move: proc (a,b,1); 7sxmoves Ima to b for 1 bytes x 
del (a,b) adar, 7% 1 < 2355 bytes */ 
(s based a, d based b,1) byte; 
do while (1:=1 - 1) <> 255; 
d=s; 
b=b + 1; 
a=a + 1; 
end; 
end move; 


fill: proc (a,char,n); 7* move char to an times */ 
del a addr,(char,n,dest based a) byte; 
do while (n := n -1) <> 255; 
dest = char; 
az=a+t il; 
end; 
end fill; 


read: proc; 
del toggle(3) byte; 
toggle = 1; 
call monl(19,.togele); 
end read; 


printchar: proc(char); 
del char byte; 
call moni(2,char); 
end printchar; 


print: proc(a); 
dc 1 a addr; 
call monl(9,a); 
end print; 


diskerr: proc; 
do; 
call print(.’de 3’); 
+) goto boot; 
end; 
end diskerr; 


setupSintSfile: proc; 
if nointfile then /* only make file if this toggle off */ 
return; 
call move(.rfcb, .wfcb,9); 
wicb(32) = @O; 
call moni1(19,.wfcb) ; 
if mon2(22,.wfcb) = 255 then 
call diskerr; 
end setupSintSfile; 


writeSintSfile: proc; 
if nointfile then 
return; 
call moni(26, .diskoutbuff); 
if mon2(21,.wfcb) <> © then 
call diskerr; 
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call monl(26,80h); /“* reset dma addr */ 
end writeSintSfile; 


emit: proclobjcode) ; 
del objcode byte; 


if (buffptr *= buffotrt+l) >= intrecsize then 
/*® write to disk */ 
do; 


call writeSintSfile; 
buffptr = 8; 
end; 
diskoutbuff(buffptr) = objcode; 
end emit; 


generate: proclobjcode); 
dcl objcode byte; 
codesize = codesizetl; 
call emit(lobjcode); 
end generate; 


closeSintSfile: proc; 
7* closes a file */ 
if mon2(16,.wfcb) = 255 then 
call diskerr; 
end closeSintSfile; 


openSsourcefile: proc; 
call move(.’pas’,rfcbaddr+9,3) ; 
rfceb(32) ,rfeb( 12) = 9; 
if mon2(15,rfcbaddr) = 255 then 
do; 
call print(.’no source file $’}); 
go to boot; 
end; 
end opendsourcefile; 


rewindSsourceSfile: proc; /% cp/m does not require any action */ 
return; /* prior to reopening */ 
end rewindSsourceSfile; 


readSsourceSfile:proc byte; 
del dent byte; 
if (dent:=mon2(rfile,rfcbaddr)) > fileeof then 
call diskerr; 
return decent; 
end readSsourceSfile; 


erlf: proc; 
call printchar(cr) ; 
call printchar(1f); 
end crlf; 


printdec: proc(value) ; 


del value addr, i byte, count byte; 

dc l deci(4) addr initial( 10090, 100,10,1); 
dcl flag byte; 

flag = false; 

do i= 9 to 3; 


count = 39h; 

do while value >= deci(i); 
value = value ~- deci(i); 
flag= true; 
count = count + 1; 

end ; 

if flag or (i>= 3) then 
call printchar(count) ; 

else 
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call printchar(’ °); 
end; 
return; 
end printdec; 


printSprod: proc; 


call print(.’ prod = S$’); 
call printSdec(production) ; 
call erlf:; 


end printSprod; 


printStoken: proc; 
call print(.” token = $’) 
call printSdec( token) ; 
call erlf; 

end printStoken; 


oe 


clearSlineSbuff:proc; 
call fill(€.linebuff,’ °,conbuffsize):; 
end clearSlineSbuff; 


listline: proc( length); 
del Clength,i) byte; 
call printSdec(lineno) ; 
call printSchar(’ °); 
do i = 6 to length; 
call printchar(linebuff(i)); 
end; 
call erlf; 
end Llistline; 


SBR BRE HR KA KK BK KE HK KK RK KK KB KK AK RK KKK KR MK EK ATR EE OK OK KS OK OK OK BB OK OR OK OK OK ROKK OK KK KZ 
S RRRRKR RRR KKK HBB BKK KKK KK KKK IKK KKK KR KE KE KK OK OK OK OK KK KE KOK KK RE OK KR KR KK KS KKK RK KK Z 
SBR parser variables KK KZ 
J BRR RK KKK HK HK RK KK KKB KKK BK KK KKK KR KKK RK KKK KK KK RK KKK KK OK OK OK ORK KKK KK KK KK KKK KKK KZ 
A RRR KK KKK KKK HR HK KK RAK AH HK KAKA AK HH KKK MK MRK KH MK NER HK HK HK ALK HK KK AK KK OK BK KK OK OK OK IK 6K OB OK KK KK KOK KZ 


dcl listprod byte initial( false), 
- lowertoupper byte initial( true), 
listsource byte initial( false), 
debuglin byte initial(false), 
listtoken byte initial( false), 
compiling byte; 


A BRERKBRR RR KBR RK KH KKK KR RK KK KKK RK KR KK RK RK OK OB ROE EO OK KR OK OK OK BR ROK IK SK OK OK KR EK KE RK KKK ZK 
A KRK KR RK RK RR RR RK KR KKK KK BK KKK KR KKK RK BKK KKK OK KK RK ORK KB KK KOR HK AR KOR KK OK KOK KOK RK / 
SRE scanner procedures KKK / 
A KRKKK RRR KK RK RK KR KKK RK RK KOK ROK OK KR KK RR OK OK KB KR RK OK ROR RK OK OK KK KOK KK KKK RK KK KK KKK KKK KZ 
A BRR K RK KK KKK KKK KKK OK RR KK KK OR KOK OK OK OR OK OK OK 2 OK OK 2K OK OR OK OK 2K OK 8 OK 3K OK OK OR OK OK OK OK OK OK OB KOK OR KKK KZ 


getchar: proc byte; 
dcl addeof data (’eof’, eolchar,1f); /* add to end if left off */ 


nextSsourceSchar: proc byte; 
return sourcebuff(sourceptr) ; 
end nextSsourceSchar; 


checkfile: proc byte; 


do forever; 
if (sourceptr:=sourceptrtl)>=cursourcerecsize then 


do; 
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Sourceptr=9; 
if readSsourceSfile=fileeof then 
return true; 
end; 
if (nextchar:=nextSsourceSchar)<>1f then 
; return false; 
end; 

end checkfile; 


if checkfile or (nextchar = eoffiller) then 
do; /*% eof reached */ 
call move(.addeof,sbloc,5); 
sourceptr = 9; 
nextchar=nextSsourceSchar; 
end; 
linebuff(lineptr:=lineptr + 1)=nextchar; /*output Line*/ 
if nextchar = eolchar’ then 
do; 
lineno = Llineno + 1; 


if listsource then 

call listline( lineptr-1); 
lineptr = 9; 
call clearlinebuff; 


end; 
if nextchar = tab then 
nextchar = ° ’; 


return nextchar; 
end getchar; 


getnoblank: proc; 
do while((getchar = ’ °) or (nextchar = eoffikler)); 
end; 

end getnoblank; 


title‘:proc; 7% compiler version */ 
call erlf; 
call print(.’toggles setS’); 
call erlf; i 
call print(.’pascal-m vers 1.03’); 
call erlf; 
call ecrlf; 
end title; 


printSerror: proc; 
call printdeclerrorcount) ; 
call printchar(’ ’); 
call print(.’error(s) detectedS’) ; 
call cerlf; 
end printSerror; 


error: proc(errcode); 

del errcode addr, 

i byte; 
errorcount=errorcount?tl; 
call print(.’**x*S’); 
call printSdec( lineno) ; 
call print(.’ error S&S’); 
call printchar(’ °); 
call printchar(high(errcode)); 
call printchar( lowlerrcode)); 
call print(.’ near &’); 
call printchar(’ ’); 


do i = 1 to accunm; 

call printchar(accum( i)); 
end; 
call erlf; 
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eall 
call 
call 
call 


print(.’at error $’); 
printchar(’ ’); 
printStoken; 
print(.’at error $’); 
call printchar(’ ’°); 
call printSprod; 
if token=eofe then 
do; 
call printSerror; 
call mons; 
end; 
end error; 


initializeSscanner: 
del count byte; 
call openSsourcefile; 
lineno,lineptr = 90; 
call clearSlineSbuff; 
sourceptr = 128; 
call getnoblank; 
do while nextchar = ’S’; 
call getSnoSblank:;: 
if Ccount := (nextchar and 5fh) 
do case count; 


proc; 


listsource = true; 
listprod = true; 
nointfile = true; 
listtoken = true; 
debugln = true; 
end; 
call getnoblank; 


end; 
end initializeSscanner; 


"a’) <= & then 


/7* of case */ 


AS RRB KR HK RB K BH BK HK HK BMH AEE HK KKK HK AAC IK IKK KKK HK IE HK ATI K OK OK IK KK AK OR OK EIR OR SK OK OK IK RK KE RK KOR KK KZ 
PS BRRKRBK ARK KKK RAK KKK HK KKK BKK MK KK BKK RIK KK IKK A KK OR KK OK KKK KK RK KK RK KR KK KK KKK KKK KKK Z 


SRK 


sca ninrner 


KKK 


A RRKRKRRKK RK RRKHRM KK K BKK BKK KKK RK KIRK KH HK MK HH HK AK KABA RK ABBR KW KKK HK KK EE KK IK KK RK KE KKK 
A BR RK RRR KK KKK RK HK HK HK HK KKK HK KKK KKK OK KK RK KK RR AK ORK OK ROK ROKK RK OK ROR ROK OK KOK KEK RK KK 


scanner: proc; 
dcl flag byte; 


putinaccum: proc; 
if not cont then 


do; 
accum(accum := accum + 1!) 
kashcode = (¢ 
if accum = $1 then cont 
end; 


end putinaccun; 


putandget: proc; 
call putinaccunm; 
call getnoblank; 
end putandget; 


putandchar: proc; 
call putinaccun; 
nextchar = getchar; 
end putandchar; 


numeric: proc byte; 
return(nextchar - 
end numeric; 


°O’) <= 9; 
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= nextchar; 


hashcodetunextchar) and hashmask; 
1 


true; 





lowercase: proc byte; 


return (nextchar >= 61h) and (nextchar ¢2 Tah); 
end lowerScase; 


decimalptiproc byte; 
return nextchar=’.’; 
end decimalpt; 


convStoSupper: proc; 
if lowercase and lowertoupper then 
nextchar=nextchar and 5fh; 
end convStoSupper ; 


letter: proc byte; 

call convStoSupper; 

return ((nextchar - ’a’) <= 25) or lowercase; 
end letter; 


alphanum: proc byte; 
return numeric or letter ; 
end alphanun; 


spoolnumeric: proc; 
do while numeric; 
call putandchar; 
end; 
end spoolnumeric; 


setupSnextScall: proc; 
if mextchar = ° ° then 
call getnoblank; 
cont = false; 
end setupSnextScall; 


lookup: proc byte; 


dcl maxrwing lit ‘°9’; 


del vocab GastaGOg Se og ©" ee le Eg ee 7 et 


9 
» function’,’ procedure’); 

del vioc data(9,1,15,35,65,97, 132, 162, 163, 191,299); 
del wnum data(9,1,15,25,35,43,590,55,60,61); 

del count data(9,13,9,9,7,6,4,2,9,9); 


del ptr addr, (field based ptr) (9) byte; 
del i byte; 


compare: proc byte; 
del i byte; 
i = @; 
do while (field(€i) = accum(i := i + 1)) and i ¢= 
end; 
return i > accun; 
end compare; 


if accum > maxrwling then 
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eee = eee Ge OR ts EO sal Poe oin . Ol «Ore to. eon 
"and’,’div’,’end’,’for’,’mod’,’nil’,’not’,’set’,’var’,’case’ 
"else’,’file’,’goto’,’read’,’then’,’type’,’with’,’array’,’ begin’ 


*const’,’ label’,’until’,’while’,’write’,’downto’,’ packed’ 
*yeadIin’,’record’,’repeat’,’<empty?’, ’ program’, ’writeln’ 





return false; 
ptr=vloc(accum)+.vocab: 


do i=vnumlaccum) to Cvnum(accum)+tcount(accum) ); 
if compare then 


do; 
token=i; 
if i = 53 then 
SP RERRRK BERET I RH TE Ef 
7* the following code sets up storage 8 */ 
7*& pointers for record entries in the */ 
7% symbol table. */ 


A RRR RK RRR HK NE EE NR OR Ne Se Me ee 


do; 
recSnst=recSnst+tl; 
aptraddr,recSparSadr(recSnst)=sbtbl; 
addrptr=98@00h:; 
aptraddr=aptraddr+2; 
addrptr=prvSsbtblSentry; 
prvSsbtbiSentry=sbtbl; 
aptraddr=aptraddrt2; 
byteptr=1fh; 
sbtbl=sbtbI1+9; 
“® record initiazations */ 
variantSpart(recSnst), tagSfd(recSnst)=false; 
fxdSofs tSbse(recSnst) =90900h; 
varSofstSbselrecSnst)=6800h; 
curSofst(recSnst) =9009h; 
varScasSva l(recSns t) =0900h; 
recordSptr=-1; 


end; 
return true; 
end; 
ptr=ptrtaccum; 
end; 


return false; 
end lookup; 


7 BRBR RK KKK KK RK RRB KKK RK KR RRR KKK RK OK RRR OK RR KK OB OR KR OK ORR OK OK RK KEK KOK KK KOK OK JZ 
7 RK RK RR OK RK OK RK ROK ERR EK OK OE OK KR EK OK OK OK OK OK OK OK OK ROK OK OK OK OB OK OK OR OR OK OK ROK KK OK OB OR OK OK OK EK OK OK RK KK KK KKK 
A RRR scanner ~- main code KKK 7 
A RK RRR RK KKK RR OK OK OK KE EE OK OK OK KE KK KK EK KK OR OK ROK OK EK OE OK EK OK KK OK EK KKK RE / 
A RRR RRR KK RK KKK RRR KK OR KK RK KK RK KK OK RR KK KOR OK OK OK ROK OK OK OR OK OK OK OR OK OB OK OK OK OK KOK OK OK OB OK RK RK OK OK ZH 


do forever; 

accum, hashcode, token = @; 

do while nextchar=eolchar; 
call getnob lank; 


end; 
if (nextchar = stringdelim) or cont then 
do; * found string */7 
token = stringc; 
cont = false; 
do forever; 
do while getchar <> stringdelim; 
call putinaccum; 
if cont then return; 
end ; 
call getnoblank; 
if mextchar <> stringdelim then 
return; 
call putSinSaccun; 
end; 7* of do forever */ 
end; 7* of recognizing a string */ 


else if numeric then 
do; /%* have digit */7 
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token = numberc; 
typenum = integerStype; 
do while nextchar=’9’; /*elim leading zeros*/ 
nextchar=getchar; 
end; 
call spoolnumeric; 
if decimalpt then 
do; 
call putandchar:; 
typenum = realStype; 
call spoolnumeric; 
end; 


7x this takes care of expon. form */ 
if nextchar = ’e’ then 
do; 
typenum = unsignSexpon; 
call putandchar; 
if nextchar = ’-’ or nextchar = °’+’ then 
do; 
call putandchar; 
typenum = signedSexpon; 
end; 
call spoolnumeric; 
end; 
if accum = @ then 
hashcode,accum(accum:=1) = °’0’; 
call setupSnextScall; 
returns; 
end; 7k of recognizing numeric constant */ 


else if letter then 
do; * have a letter */ 
do while alphanum; 
call putandchar; 
end; 
if mot lookup then 
do; 
token = identifier; 
call setupGnextScall; 
reiurn; 
end; 
else 
do; 
call setSupSnextScall; 
return; 
end; 
end; /* of recognizing rw or ident */ 


$ 


/* is a rw but if comment skip */7 


else /%* special character */ 


do; 
if nextchar = andsign then 
do; 
nextchar = getchar; 
do while nextchar “> andsign; 
nextchar = getchar; 


end; 
call gwetSnoSb lank; 
end; 
else 
do; 
if nextchar = °:’ then 
do; 
call putandchar; 
if mextchar = ’=’ then 
call putandget; 
end; 
else 
if nextchar = ’°.’ then 
do; 


call putandchar; 
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Ds) 


if mextchar = ’.’ then 


call putandzet; 


else 


if numeric then 
do; 


token = numberc ; 
typenum = realStype; 


call spooinumeric ; 
7* check for exponent */ 
if mextchar = ’e’ then 
do; 
typenum=uns ignSexpon; 
call putandchar; 


if mextchar = ’-’ or nextchar = °+’ then 
do; 


typenum=s ignedSexpon; 
call putandchar; 
end; 


call spoolnumeric; 
end; 


call setSupSnextScall ; 
return; 
end; 
end; 
else 
if nextchar = ’(’ then 
do; 
call putandchar ; 
if nextchar = ’*’ then 
call putandget; 
end; 
else 
if mnextchar = ’*’ then 
do;3 
call putandchar 
if mextchar = ’) 
call putandget ; 
end; 
else 
call putandget; 


° 
3 
9 


then 


if not lookup then 
call error(’ic’); 
call setupSnextScall; 
return; 
end; 
end; 7% of recognizing special char */ 

end; 7% of do forever */ 
end scanner; 7% end of scanner */ 


CS RBRHRK HBR B AK KK KK KR KK KK KEE RK KK RK IK RK KK BK HE ERK RR KR RR EK OK I OK ROKK KR RK RR KZ 
A BRR BRR BKK HR AK KK HE KK RK KR OK RK RK OK KK RIK KK KK OK RAK KAR OK OR OK OK EK KK OR KR KK KK OK ROKK KK KOK 7 
SRE procedures for synthesizer KRK/ 
A RR KR RK RK IK OR OK EO OK OK OK ROK OK KK EEK KK KK ORK KOK OK KK OK KK ER OK RK IE IKK OK KKK KOR HK KK KK ZF 


A RRBRKRKR KKK BKK KKK KK KK KKK RK KR KK KR KR BK RKB RR ASK OB ER AB BE OK ER OK ROR RK RR KOK KKK ACK KK Z 


initializeSsymtbl: proc; 


dcl symbase addr; 


do; 
eall fill €.hashtable,9,shl(hashtblsize,2Z)); 
symbase=.initSsymbStbl; 
sbtbl=.memory; 
initSsymbStbl1(15)=high(symbase) ; 
initSsymbStb1(16)=low(symbase) ; 
initSsymbStb1( 25) =high(symbaset 13) ; 
initSsymbStb1(26)=low(symbaset13) ; 
initSsymbStb1(35) =high(symbase+t23) ; 
initSsymbStb1(36) = low(s ymbase+t+23) ; 
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iniitSsymbStbi(48) =high(symbaset+33); 
initSsymbpStb1(49)=low(symbase+33) ; 
initSsymbStb1(059) =high(symbaset46) ; 
initSsymbStb1(69) = low(s ymbase+46) ; 
initSsymbGtb1(71)=high(symbaset57) ; 
initSsymbStb1(72)=low(symbaset57) ; 
initSsyubStb1C85) =hieh(s ymbaset69); 
initSsymbStb1(&6) = low(symbaset69) ; 
hashtable(14)=symbase; 
bashtable(36)=symbasetl13; 
hashtable(39) =symbase+29$; 
hashtable(@) =symbaset33; 
bashtable(16)=symbaset46; 
hashtable(113)=symbase+57; 
hashtable(64)=s ymbaset69; 
hashtable(1@7) =symbase+83; 
prvSsbiblSentry = symbaset+83; 


end; 

sbtbl top=max-2; 
veceptr=9: constSptr=9; 
cons tSindx=9;. 
constSpnSptr=9; 
subrSptr=9; 
arySdmSadrSptr=-1; 
arrySptr=-1; 
variantSpart=false; 
arryoqty=0; 
allocSaddr=9@; 


end initializeSsymtbl; 


A RRRBRKRR KKK RK KKK KKK RAK K KKK KKK KKK AK KE KR A EK AE IK OK OK EEK KOK KR KOK KK KK KKK RR KR Z 
A RRR RR KR KKK MK KK KK RK BK KK KK KE IK OK KK IK KK EK KK KK KKK KK KK KKK BK KKK RK RR EK KK KKK Z 
SRR parser KKK 
ARERR BK BKK KEK KK BK RK KBE KKB KKK KK HK KKK RIE KK BK RK HK ORK ARK IK OB KK KK KK IK IK KB RK OK KK Z 
A PRR RB RE RR RR KR RE RK KR RK GK ORK KEE OK OK OR RK IK BRK HR KK RE RE RR RR BRK OBR OR OK OR ROR RR OBR RRR ROR ER KK RK Z 


do; 

del state statesize, 
var(pstacksize) byte, 
hash(pstacksize) byte, 
vare(varcsize) byte, 
varindex byte, 
statestack(pstacksize) statesize, 
(sp,mp,mppl,nolook) byte; 


7% block for parser */ 


/* nmumonics for pascal-sm machine */ 


dc l endp Lit 7Y, bl lit *2’ ,nop lit °@’,1ldib lit "3° 
Idii lit °’4’,cnvb Ilit ‘°’9’,cnvi lit °10’,all lit "Lt 
llta lit °12° ,addb lit °° 13° , addi Lit °1¢4* ,subi lit °16’ 
muli lit °18’,divi lit °20’,1lssi 11t °22’,leql 1Lit °24’ 
eqib lit °25’,eqli 11t °26’,neqb lit °28’,nmeqi lit °29° 
geqb lit ‘'31’,geql lit ’32’,grtl lit °34’,negb Lit °35’ 
negi lit °'36’,comb lit °37’,comi Jlit °38’,notx lit °39° 
andx lit °40’,bor lit °41’,stob lit °42’,stoi 1 
sto lit °44’,stdb lit ’°45’,stdi I1llt °46’,std 1 
derb lit °48’,dcri lit °49’,der lit °50’,brl 1 
ble lit °53’,lod 1it °55’,lodb I11t °56’,lodi 1 
rdvb lit °S8’,rdvi lit °59’,rdvs Ilit °60’,wrvb 1 
wrvi lit °62’,wrvs lit °63’,cmai 1l11t °S1’,cn2i 1 


2 <2 = ~~ = ~ ry a 2 ~~ = 2 oa 


pute pate pute pao pude pate 
rt er er er ee 
2 
(>) | 
~ 


—" 
es 

or 
 ) 
ie) 


dump lit °64%’,grtb lit °38’,Ilssb lit ’°’21°,leqb 
mulb lit ’°17’,divb t1Lit °19’; 


initializeSsynthesize: proc; 


codesize = 0; 
end initializeSsynthesize; 
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A RRRRERE BK KERR EER BERK ERR KIER RK I KE RIE HOO HRCI OE ROR, 
A RRHEREREK EKER EEE EH EAR RE THR RIE NOI ET SE MO ete te a ae eae eo tao se ete pease 


Er ar egy G 


te abe 
PRE a _ . code generating procedures KKK / 
A BR RRB RE KR RK BRK RK RRR RIK RK RE KK IRE RR EK EK IK OOK HR OK EE IE IESE Me ese eR me Kk 


Fe Her 


A RRR RK KBAR KEK RA ER TR IK RR RR I OK REE IK EK CE OR KK MOK ER KEK ROMO ROE TIO IK MK Sok / 


Sar AX Gyr C4e Ofer 


synthesize: proc; * synthesize local dectarations */ 


setaddrptr: proc(loffset); 

del offset byte; 

aptraddr = base + offset; 
end setaddrptr; 


calcSvarec: procfa) addr; 
del a byte; 
return var(a) + .vare; 
end calcSvarc; 


setlookup: proc(a); 

dcl a byte; 

printname = calcSvarc(a); 

symhash = hash(a); /“* hashcode of pn */ 
end set lookup; 


A BRBRRBRRR BR RK BERK HK RAK KK RR IK HB KKK KK RK KKK RK HZ 


/* enterSlinks ~ this procedure enters in the */ 
/* next four bytes of the symbol table the E77 
7* collision field and the previous symbol */ 
/% table entry address field for the next */ 


/*® symbol table entry. ( both in address var ) */ 
A RRR RRR KK KR RR KK RR ROK KOK OR KE KR OK OK OB OK OK IK OK OK OR OK OK OK OK OR BER KR ORK ORK 


enterSlinks: proc; 
base,aptraddr = sbtbl; 
addrptr = hashtable(symhash) ; 
call setaddrptr(2); 
addrptr = prvdsbtblSentry; 
prvSsbtblSentry = sbtbl; 
hashtable(symhash) = base; 
end enterSlinks; 


checkSprintSname: proc(a) byte; 
* a is offset from base to printname */ 
dcl n based printname byte; 
dcl (Clen,a) byte; 
call setaddrptr(a); 
if ( len := byteptr ) = n then 
do while (byteptr(len)=n(len)); 
if ( len := len-!I ) = 9 then 
return true; 
end ; 
return false; 


end checkSprintSname; 


SKK RI IHR RI RHR IIMB RRRKERAERE KR EKRRERKE BER RK 7H 
/% lookupSprintnameSidentity - this procedure */ 
7% is passed the location of an identifier in */ 
/* the production rule, and its target entry */ 
/7* type. if the identifier is found with the *S 
7*® correct type the procedure return true, */ 


7% else false is returned. */ 
S RRR IR HK RRR IKI HR RANI MARKER EME KEIR KER ERE RE ERK EF 


lookupSpnSid: proc(a,idGentry) byte; 
dcl (a,idSentry) byte; 
call setlookup(a) ; 
base = hashtable(symhash) ; 
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do while base <> @; 
call setaddrptr(4) ; 
a (€ byteptr and formmask ) = idSentry ) 
O03 
if checkSprintSname(5) then 
lookupSaddr=base; 
return true; 
end; 
else do; 
call setaddrptr(0); 
base = addrptr; 
end; 
end; 
return false; 
end lookupSpnGid; 


then 


AS RERRRRER EKER RRR KKK RR HK KO KH ROK ES 


7* limits - this procedtre ensures that the 
7% symbol table entry about to be entered 
1% will not exceed the upper limit of the 
7% available symbol table addresses. 

7% the parameter is the bytecount of the 
7% entry to be entered. 


*/ 
*7Z 
*/ 
x7 
*/ 
*/ 


7 RRR KE KK RB RK KKB RK KK RRR BR KK KKK KK KK KKB KK KR KE EK KKK Z 


limits: proc(count); 
del count byte; 
if sbtbltop <= (sbtbl + count ) then 
do; . 
call error(’ to’); 
call mond; 
end; 
end limits; 


A RERRRKRKRKRAKKRRARRKRKKKKRERK KA RRAKRKKAK BK KKK KK RKKK KZ 


7* enterSprintnameSidentity - this procedure */ 
7% loads the symbol table with the following: */ 
7% 1. collision field */ 
7% 2. previous symbol table entry address */ 
7® 3. form of entry ( preset byte "form" ) */ 
7k 4. the length of the printname tn one bytex/ 
1 9. the printname characters */ 
7% parameter: printname is set prior to call. */ 


A KRRKKRRKKKRKEK RBKK KKK KL BKK KKK HK KKK KK RK RR KK RK ROKK / 


enterSpnSid: proc; 
del (i,n based printname) byte; 
call limits(i:=nt6) ; 
call enterS$1 inks; 
call setaddrptr(4); 
byteptr = form; 
call setaddrptr(5); 
byteptr=n; 
call move(printnametl1,sbtb1+6,n) ; 
sbtbl=sbtbl+i; 
end enterSpnSid; 


A RREKRERRKKKRKR EKER KKK EK KKK RB RHKKK KKK KKK KK RE KK KK Z 


/*® enterSvariableSidentity - this procedure 

7% calls enterSpnSid to load the symbol table 

7% entry currently being scanned. it also 

7% generates the entry’s "form" by performing 
* a boolean ’or’ operation on the idSentry _ 

7 and the parameter "“a". 


7 
Td 
e/ 
*/ 
*/ 
KS 


SA RRRKRRRKEKE ER EKER RE KKK KEK KK RRR KKK KERR BERK KR KK KK EZ 


enterSvarSid: proc(a,b,idSentry) ; 
del (a,b,idSentry) byte; 
if lookupSpnSid(b,idSentry) then 
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return; 
7* else enter var name */ 
form = a or idSentry; 
call enterSpnSid; 
end enterSvarSid; 


SP RRRRERR ERE RRR RR HR KK IK HR KR RRL 


/*® setSiabel - this procedure assigns a label *x/ 
7 to the current declared label and increment*/ 
1% the labelcount ( next to assign ). */ 


ARERR RERRREKE RE RE RR IKRA RRR RK 


setSlabel: proc; 
addrptr=lablcount; 
lablcount= lablcounttl; 
end setSlabel; 


J RRRRK RR BR KKK RK HK KK KKK KR BKK RK KKK KK KK RK KK KK KKK KK / 
7* enterSlabel - this procedure loads a label */Z 
1% entry into tke symbol table. symnash and */ 
S% printname must be set prior to calling */ 
A RRRRKRRK RRR RR RK KK RR RK KKK KER KK KK RK RK KK KKK KKK KZ 


enterSlabel: proc; 
call limits(2); 
aptraddr = sbtbl; 
call setSlabel; 
sbtbl = sbtbl+2; 
end enterSlabel; 


A RRKK KKK KBR KR RK KR RK KR KK RK OK KK RK KK RK KK EE RR OK KK / 
7* lookupSonly - this procedure is passed the */ 


1% position of a identifier Just scanned in */ 
x the current production ( sp,mp,mppl ) and */ 
x returns true if the identifier is found in */ 

S% the symbol table. */ 


SP KRRRERKEE ERK ER KK KK KKK BRR KK HK BKK KK KBE KB IK ER RE HK BK KK 


lookupSonly: proc(a) byte; 
del a byte; 
call setlookup(a) ; 
base=hashtable(symhash) ; 
do while base <> 8; 
if checkSprintSname(5) then 
do; 
lookupSaddr=base ; 
return true; 
end ; 
else do; 
call setaddrptr(9) ; 
base=addrptr; 
end; 
end; 
return false; 
end lookupSonly; 


convrtbed: proc(a,b); /7* a=sp/mp/mppl, b=pos/neg *K/ 


SRREKRKRRRKRER EKER EERE R KKK BKK EHR KKK KBR EL 


* this procedure converts a real *x/ 
7% number in the program to a bed */ 
7% representation. */ 


A KRRERKKKKKRRRERREEKRKER EREER ERR EER REE LZ. 


del (i,g,dflag,eflag,sflag,a,b,n based printname) byte; 
del (exponloop,expsignloop) label; 


call setlookup(a) ; 
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/*® initialize variables */ 
sflag=false; eflag=true; dflag=true; i=1; 
do j=0 to @; bednum(j)=9; end; 

J=93; expon=64; /* e+O00 */ 


7* remove leading zeros */ 
do while (€nC€i) - °@’) = 9); 


izi+l; 
if i=(n+l) then goto exponloop; 
end; 


7* load bednum with significant digits */ 
do wnile ((n€i) - ’6’ ) ¢= 9 or ni) = ’,°); 
if n(i) = *.’ then 
do; eflag=false; 
if i=n then goto exponloop; 
i=i+ 1; 
end; 
else 
do; 
do while J = 0 and dflag and (n(i) - ’@’) = 6; 
expon = expon-l1; 


if i= n then goto exponloop; 
i=i+-l =; 
end; 


if jy = € bedsize-l1 ) then goto exponloop; 
if dflag then /* first bed pair */ 
do; 
bednum( jy) =rol((n(€i)-'’O’) ,4&); 
dflag=false; i= i+1; 
if eflag then cxpon=expontl; 
end; 
else 
do; 
bednum( j) =bednum( jy) +(u0id-’9’); 
to) tele = i + 1; 
dflag=true; if eflag then expon=expontl; 
end; 
if i=(n+l) then goto exponloop; 
end; 
end ; 
exponloop: 
if i = (n+l) then goto expsignloop; 
if eflag then 
do; 
do while n(i) <> °.’3 
expon = expon + 1; 


P= i + 1; 
end; 
i=i+tl1; 
end; 
do while i < (ntl) and (n€i)-’9’) <= 9 ; 
i= i t+ 1: 
end; 


if typenum = realtype then goto expsignloop; 
7* nf i) = e */ i = itl; 
if typenum = signedSexpon then 


do; 
if n(€ i) = minusx then sflag = true; 
lene es 1 
end; 
if i = ntl then 
do; 
call error(’ee’*); 
return; 
end; 
dflag = 90; 


do jJ = i to n; 
dfiagw = (dflag*16)+(n(j)-’0"); 

end ; 

if sflag then ”* exponent calculation */ 
expon = expon-dflag; 
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else expon = expon + dflag; 


expsignloop: 
bednum( bedsize-1l)=rol(b,7); “* sign of number */ 
if expon > 127 then 
do; 
call error(’ee’); 
return; 
end; 
else bednum(becdsize-1)=bcdnum(bedsize-1)+texpon; 


end convrtbed; 


SRRERBRKKRKK KK BK KKK KBB KKH KK KKK KK KKK KKK KR EK KK KOK Z 


/* econverti - this procedure is passed "a", thex*/ 
7% location of a constant in the production KS 
x and "b" the ’sign’ of the integer. the */ 
7% function generates a signed 16 bit repre- */ 
1% sentation of the number and returns it in */ 
1% an address variable. */ 


A RRRRRR KK BK KKK RK KR KKK KKK RRR KKK BK KKK KKK KR RRKRAK Z 


converti: proc(a,b) address; 
del (i,a,b,n based printname) byte; 
del num addr; 


call setlookup(a); num=96; 
do i=1 to n;3 
if (maxint/190) >= num then 


do; 
if (maxint/190) = num and (n(i)-’@’) > @ then 
do; 
call error(’ie’); 
return num; 
end 3 
num= (num*10)+(n(i)-’@’); 
end; 


else do; 
call error(’ie’); 
return num; 


end; 
end; 
if b = pos then return num; 
if num = maxint then 
do; 


call error(’ie’); 
return num; 
end; 
return ( - num); 
end converti; 


ARERR RRER ERR IRR R ER RR RE KR RRR KKK BREE KK BER BRK KK EZ 
/%& convertSconstant - this procedure is called */ 
7 with typenum set by the caller. the number */ 
7% must be pointed to by “sp" in the produc- */ 


es tion. the procedure returns with "const$ */ 
7% numStype" and “constSvalue" set with the */ 
1 number in its internal form. */ 


SRR IRR RIA KM NAR HARK N RARE ERA EA ERE RE ER REBEL 


convrtSconst: proc(a); “* a=pos,neg */ 
del a byte,intSaddr addr; 

if typenum = integerStype then 

do; 
intSaddr=converti(sp,a) 3; 
cons tSnumStype(constSptr)=integerStype; 
cons tSptr=constSptrt1; 
call move(.intGaddr, .constS$value(constSindzx) ,2); 
cons tSindx=constSindxt2; 

end; 

else do; 
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call convrtbed(sp,a); 
constSnumStype(constSptr)=realStype; 
constSptr=constSptrt+1; 
call move(.beduum, .constSvalue(constSindx) ,bedsize) : 
cons tSindx=constSindxtbedsize; 
end; 
end convrtSconst; 
A RRR BRK KA KR RE RE AS TSS OR OS OS OK OT IS BS NSS NES SN BS OS SIE OTE NS Og OM SI Be eZ 
7s enterSconstantSnumber - after the next entry*/ 
S% has had its links entered into the symbol ¥*/ 


1 table, this procedure enters the constant */ 
7X value into the symbol table and set the */ 
J entry’s “form" to the appropriate type. */ 


A KRRRRRRBRBK RB BK BWR BB HKK BKK KKB KK BK KIRK KK MK RK RIK KKK OR 


enterSconsSuumb: proc; 


cons tSptr=constSptr-1; 
if constSnumStype(constSptr)= integertype then 
do; 
call setaddrptr(4); byteptr=8 or consSentry; 
call limits(2); constSindx=constSindx-2; 
call move(.constSvalue(constSindx),sbtbl,2); 
sbtbl=sbtbl+2; 
end; 
else do; 
call setaddrptr(4); byteptr=19h or consSentry; 
call limits(€bcdsize); constSindx=constSindx~bcedsize; 
call move(.constSvalue(constSindx) ,sbtbl,bedsize); 
sbtbl=sbtbl+bcds ize; 
end; 
end enterSconsSnumb; 


7* enterSstring - after the “links" and "form" */ 


7% are entered into the symbol table, this *S 
Va procedure loads any identifier along with */ 
Ve its length. (used with constant strings */ 
7% and constant identifiers ) */ 


enterSstring: proc(a); 
del (a,n based printname) byte; 
call setlookup(a) ; 
call limits(ntl); 
call move(printname,sbtbl,(n+1l)); 
sbtbl=sbtbl+ (ntl) ; 
end enterSstring; 


enterSconsSident: proc(a,b); /* a=pos/neg , b=mp/mppl/sp */ 
del (a,b,c) byte; 

c=rol(a,6); 

call setaddrptr(4); byteptr=c or consSentry; 

call enterSstring(sp) ; 

cons tSpnSptr=constSpnSptr-1; 

cons tSindz=cons tSindx-constSpnSs ize(constSpnSptr) ; 
end enterSconsSident; 


enterSconstSentry: proc; 
del ixindex byte; 

vecptr=vecptr-1; 

do case constSvec(vecptr) ; 
/7& case constant number */ 
call enterSconsSnumb; 
/* case identifier constant */ 
call enterSconsSident(pos,sp); 
/% case signed identifier constant */ 
call enterScons$ident(neg,sp) ; 
/*% case constant string */ 


f- 
. 
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do; 
eall setaddrpir(4); byteptr=13h or consSentry; 
call enterSstring(sp); 

cons tSpnoptr=constSpnSptr-1: 


ao s A<-= * He = wi 3 
constSindzs=constCindx cous tOpnosize(constSpnSptr) ; 


end; 
end; “* of case constStype */ 


end enterSconstSentry; 


SP RRR ERR EHR KK ERIK KIRA KI HER MN RM NE SE OR Me a 


7* enterScomplexStype - this procedure is *Z 
* called to enter the "links" and "form" for */ 
"hes the ’complex type’ symbol table entries. 7 
* notex that this entry never has a print~ —7 
7% name assigned. */ 


PRRR EERE RRR REE RI RR IK RIN MRE 


enterScomplexStype: proc(a); 


dcl a byte; 
eceall limits(5); 
base ,aptraddr=sbtbl; 
addrptr=0600h; 
call setaddrptr(2) ; 
addrptr=prvSsbtblSentry; 
prvSsbtblSentry=base; 
call setaddrptr(4) ; 
byteptr=a; 
sbtbl=sbtbl1+5; 


end enterScomplexStype; 


A RRR RA KKK RK IS RK KR IB RK KER IKK IK EK KG EK OR KR EK EK KKK KK 


7* enterSstructStype - this procedure is KS 
oo called by the ’type’ productions: */ 
* 1. set type K/ 

vk 2. file type vA 
ss 3. pointer type */ 

7% it calls enterScomplexStype to set up its */ 
s "links" and "form", then it sets a pointer */ 

7% to the associated complex type. *7 


SREER RBBB KK RK KR BBR KEK KR KR RBRK KKK KK KKK BRKKK KKB KR KKK 7 


enterSstructStype: proc(a); 


del a byte; 
call enterScomplexStype(a); 
call limits(2); 
call setaddrptr(5); 
addrptr=typeSloct; 
sbtbl=sbtbl1+2; 
typeSloct=base; 


end enterSstructStype; 


SP RRRRRKKUKKKBRKKK KK BKK KKK KK RK RKB KKK KK KK KKK RRM HK / 
/* IlookupSidentifier - this procedure is called*/ 
eS with ’symhash’ and printname set. it will ¥*/ 
S& return true if the identifier can be found */ 
A RERRRRRKRKRKKRRKKKKKRKKR KKK KKK KKK KKK KKK KKRRBEK KK KK / 


lookupSident: proc byte; 


base=hashtable(symhasbh) ; 
do while base <> Q; 
if checkSprintSname(5) then 
do; 
lookupGaddr=base; 
return true; 
end; 
else do; 
call setaddrptr(9) ; 
base=addrptr; 
end; 
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end; 
return false; 
end lookupSident; 


A RRR RK BRIBE IR ARH RR RRR RK RR EK EKER KR KK ORK KKK KK 


7X lookupSprintnameSonly - this procedure sets */ 
Ve the “symhash" and calls lookupSident to */ 

x determine if the entry is in the symbol 7 
Vie taple. the address of the printname is */ 
/* passed as a parameter. if the entry is ed 
S% found, true is returned. */S 


SP RRRERERE RRR RRR RR RK KR RRR RI IE EK 


lookupSpnSonly: proc(a) byte; 
del a addr; /“* addr of print-name */ 
del (b,n based a) byte; 
hashcode=90; 
do b=1 to n; 
has hcode=(hashcodetn(b)) and hashmask; 
end; 
symbash=hashcode; 
pr intname=a; 
if lookupSident then 
return true; 
else return false; 
end lookupSpnSonly; 


A KRBERRRKKKK KK KKK KKRKK KKK AK KK KKKK KKK RK KR KKK KKK KKK KK 7 


7* gstoreSconstant identifier - this routine is */ 
7% called with printname set to load an 7 
a identifier in the ’constant value’ variable. x*/ 


A KRKRKRKRKKKRKKKKKRKKKRRAKKKKKRK KKK KKK AKRKKKKKKKKKKKKKKZ 


storeSconstSident: proc; 
del n based printname byte; 
call setlookup(sp) ; 


call move(printname,.constSvalue(constSindx) ,(nt1)); 


cons tSindx=constSindxt (nt!) ; 
constSpnShash(constSpnSptr) =symhash; 
constSpn$size(censtSpnSptr)=nt+1; 
constSpnSptr=constSpnSptrt+l; 

end storeSconstSident; 


subrSerror: proc; 
call error(’is’); 
subrStype(subrSptr)=integerStype; 
subrSval(subrSptr) =9000h; 

end subrSerror; 


ordShiSlowScheck: proc; 
if subrSptr=90 then return; 
if subrStype=subrStype(1) then 
do; 
if subrSval > subrSval(1) then return; 
end; 
call error(’is’);3 
end ordShiSlowScheck; 


subrSintShiSlowScheck: proc; 
if subrSptr=9 then return; 
if subrStype <> subrStype(l1) then 


do; 
call subrSerror; 
return; 
end; 
if subrSval < 32768 and subrSval(1) >32767 then 
do; 
integerSdiff = subrSvalt( -subrSval(1)) +1; 
return; 
end; 
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hala > 32767 and subrSval(l1) < 32768 then 
03 
call subrSerror; 
return; 
end; 
ee Ce <32768 then /“* both positive */ 
03 
if(subrSva I~(subrSval(1)+1)) < 32768 then 
do; integerSdiff=subrSval~(subrSval(1))+1; 
return; 
end; 
call subrSerror; 
return; 
end; 
else /* both negative */ 
~ subrSval(1)-(€ - subrSval +1)) < 32768 then 
0; 
integerSdiff=( ~ subrSval(1))-( - subrSval)¢1; 
return; 
end; 
call subrSerror; 
end subrSintShiSlowScheck; 


A BRREKR BR KK AK RBRKRK RK RK HK KKK KR EK RK RK ROKK KK KKK KK RK K KR 
4/* subrangeSidentiferSprocedure - this routine */ 
7% is called to determine the offset ( number */ 
J of entries ina subrange ) and the type of */ 
7% subrange, given that the subrange type is he 
7% a named identifier. *S 
A ERRBERKRKRK KKK KKK KKK RK BK BRK HK AB KKK KKK RR RK KK KR KR KK RR KKK KK Z 


subrSidentSproc: proc; 

constSpnS$ptr=const$SpnSptr-~l1; 

cons tSindx=constSindx-constSpn$size(constSpn$ptr) ; 

pr intname=.constSvalue(constS$indx) ; 

symhas h=cons tSpnShash(const$pnSptr) ; 

if not lookupSident then call subrSerror; 

else /“* found constant identifier */ 

do; 

base= lookupSaddr; 
call setaddrptr(4); /* points to form(byteptr) */ 
subrSform=byteptr; 


if subrSform <> 07h and (subrSform and formmask) <> consSentry 


then call subrSerror; 
else do; 
if subrSform = 07h then 
do; 
subrStype(subrSptr)=ordSt ype; 
call setaddrptr(35) ; 
subrSform=byteptr; “* length of p.name */ 
call setaddrptr(6tsubrSform) ; 
subrSval(subrSptr)=double(byteptr) ; 
call setaddrptr(7+subrSform) ; 
subrStypeSaddr(subrSptr)=addrptr; 
call ordShiSlowScheck; 
end ; 
else 
do; 
do while ((shr(subrSform,3) and 3h)=90); 
if shr(subrSform,5)=neg then 
if subrSpnSsign=pos then subrSpnSsign=neg; 
else subrSpn$s ign=pos; 
call setaddrptr(95) ; 
subrSform=byteptr; 
call setaddrptr(6+subr3forwm) ; 
if not lookupSonly(aptraddr) then 
do; 
call subrSerror; 
subrSptr=subrSptrtl; 
return; 
end; 
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else do; 
base=lookupSaddr; 
call setaddrptr(4) ; 
subrSform=byteptr; 


end; 
end; 
ee reform, 3)and 3h) = 2 then 
Oo; 
call subrSerror; 
subrSptr=subrSptrt1; 
return; 
end; 
“7* here we have either an integer or char */ 
if (shr(subrSform,3) and 3h) = 1 then 
do; /* integer */ 
call setaddrptr(5); r 
subrSform=byteptr; 
call setaddrptr(6+subr$form) ; 
if subrSpnSsign = neg then 
subrSval(subrSptr)= - addrptr; 
else subrSval(subrSptr)=addrptr; 
subrStype(subrSptr)=integerStype; 
call subrSintShiSlowScheck; 
end; 
else 
do; 


call setaddrptr(5); 

subrSform=byteptr; 

call setaddrptr(6+subrSform) ; 

if byteptr <> 1 then 

do; 
call subrSerror; 
subrSptr=subrSptrtl; 
return; 
end; 

call setaddrptr(?+subrSform) ; 

if byteptr <4lh or byteptr > 5Sah then 
call subrSerror; 

else do; 
subrSval(subrSptr)=double(byteptr-41h) ; 
subrStype(subrSptr)=charStype; 
call ordShiSlowScheck; 
end ; 

end; 
end; 
end; 
end; 
subrSptr=subrSptrt+l1; 
end subrSident$proc; 


AS HRRRRRKK KAR K KKK KKK KEK KKK ERK IKKE RK IR RRR KK RRR IRR 
/* subrangeScase - this procedure is used to KS 
/*% determine the number of entries in a subrange*/ 
A TRA KR OK OK OR KOK RR KR OK EE OK OK OK KR ROK OK ROK KOR EK OK OK RR OK OK OK KOR OK OK OR KK ORK Z 


subr$Scase: proc; 
subrSpn$s ign=pos; 
do case constSvec(vecptr) ; 
7*® case const number */ 
do; constSptr=constSptr-1; 
if constSnumStype(constSptr)=realStype then 
do; 
call subrS8error; 
cons tSindx=constSindx-bcds ize; 
end ; 
else 
do; “* integer type */ 
constSindx=constSindx-2; 
call move(.constSvalue(constSindx), .subrSval(subr$ptr) ,2); 
subrStype(subrSptr)=integerStype; 
call subrSintShiS lowScheck; 
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end ; 
subrSptr=subrSptr+1l; /“* next to fill */ 
end; 
/* case ident constant */ 
call subrSidentSproc; 
e case Signed ident constant */ 
03 
subrSpn&Ss ign=neg; 
call subrSidentSproc; 
end; 
7* case constant string */ 
do; 
constSpnSptr=constSpnSptr-1; 
cons tSindx=constSindx-cons tSpn$s ize(constSpnSptr) ; 
printname=.constSvalue(constSindx) ; 
if constSpnSsize(constSpnSptr) <> 2 then 
call subrSerror; 
else 
do; 
base=printname; 
call setaddrptr(1); 
if byteptr < 4lh or byteptr > Sah then 
call subrSerror; 
else 
do; 
subrSval(subrSptr)=double(byteptr-41h) ; 
subrStype(subrSptr)=charStype; 
call ordShiSlowScheck; 
end; 
end; 
subrSptr=subrSptrv+1; 
end ; 
end; “* of case constSvec(vecptr) */ 
end subrScase; 


SKRRRRRKKR KKK KKK RR KK KKK RRA BKK RK RK KK RK KK RK ROR RK KK AK Z 


/* enterSsubrangeSentry - this procedure is */ 
eS used to enter a subrange type entry into */ 
7% the symbol table. this symbol table entry */ 
7% has no printname associated with it. 7 


A RRBK KKK KKK RK RK KKH HK KKH K BR RK KK KKK KKK RK KR KK KK KKK KK Z 


enter$S$subrSentry: proc; 
typeSloct=sbtbl; 
call lLimits( 14); 
vecptr=vecptr~-l1; 
call subrScase; 
vecptr=vecptr-1; 
call subrScase; 
call enterScomplexStype(shl(subrStype,6)or Ofh) ; 
call setaddrptr(3); 
if subrStype=integerStype then 

addrptr=.initSsymbStbl; 
if subrStype=charStype then addrptr=(.initSsymb$tb1+2Z3) ; 
if subrStype=ordStype then addrptr=subrStypeSaddr; 
call setaddrptr(7); 
addrptr=subr$val(1); 
call setaddrptr(9); 
addrptr=subr$val; 
call setaddrptr(11); 
if subrStype=integerStype then “* range @ to 64k */ 
addrptr=integerSdiff; /’* may be greater than 32767 */ 
else 
addrptr=( (subrSva l-subr$Sval(1))+1); 

subrSptr=9; 
sbtbl=sbtb1+8; 

end enterSsubrS$entry; 


typeSerror: proc; 


allocate=false;3 
call error(’it’); 


156 





end typeSerror; 


J RRRKKRR KBR RKB BBB RAE KB WB IE HK HK BK KKK KKK KK KS RK KKK KKK SZ 


* allocate offset - this procedure is called tox/ 
Vie determine the number of bytes required for “*V/ 


Sx storage of a variable of the type given in %* 
1% the parameter ‘a’. the variable’s allcSqty */ 
1% and allcSform are set upon return. 7 


A MRR RR RAR RR RK EK RK RK OK BK OK KK ORK KK OK KK KR KK KK OR OK ROK KOKO YK ZF 
allceSoffset: proc(a); /“* typeSloct */ 
dcl a addr; 
dcl (CallcSform,b) byte; 
base=a; 
call setaddrptr(4); /“* points to form of type */ 
alleSform= byteptr and formmask; = 
if allcSform <> typeSentry and allcSform <> typedcle then 
do; 
call typeSerror; 
allcSqty=l1; 
alleSbasicStype=9; 
return; 
end; 
do while(€(shr(byteptr,3)and formmask)=?7 and allcSform=typeSentry) ; 
call setaddrptr(35); 
call setaddrptr(6+byteptr) ; 
base=addrptr; call setaddrptr(4) ; 
allcSform=byteptr and formmask; 
if alleSform <> typeSentry and allcSform <> typedcle then 
do; call typeSerror; 
allcSqty=l; 
allcSbasicStype=9; return; 
end; 
end; 
/*% here exists either a basic type or a type declaration */ 
if allcSform = typeSentry then 
do; “* basic type */ 
do case (shr(byteptr,3) and formmask) ; 
/* integer */ 
do; 
allcSqty=2; 
allcSbasicStype=integerStype; 
end; 
/* bed real */ 
do; 
allcSqty=8; 
allcSbasicStype=unsignSexpon; 
end; 
/% character */ 
do; 
alleSqty=1; 
allcSbasicStype=charStype; 
end; 
4k boolean */ 
do; 
allcSqty=1; 
allcSbasicStype=booleanSt ype; 
end ; 
end; “* of case */ 
allocate=true; 
return; 
end; 
/* here exists a type declaration */ 
alleSform=(shr(byteptr,3)and formmask) ; 
if allcSform=9 then 
do; “* scalar */ 
allocate=true; 
allceSqty=double(allcSform+]) ; 
alleSbasicStype=ordStype; return; 
end ; 
if allcSform=1 then 
do; “* subrange */ 
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allocate=true; 
allcSbasicStype=complexStype; 
b=shr(byteptr, 6); 
if b = 1 then allcSqty=double(allcSformt}!) ; 
a allcSqty=double(allcSform); return; 
end; 
if allcSform=2 then 
do; “* array */ 
allocate=true; 
allcSbasicStype=complexStype ; 
call setaddrptr(8) ; 
allcSqtyz=addrptr; return; 

end; 
b=2; 

* all other cases allocate an address field */ 
allcSqty=double(b); 
allcSbasicStype=complexStype; 
allocate=true; 

end allcSoffset; 


A PRR HRB KK KR RRR RK RK RK OK RK HS OK OR OK OK OE OK OR OK KOK EK KK KK OK ROK KKK KZ 
/*® allceSindexSoffset - this procedure is called */ 


7% to determine the number of bytes required */ 
7% by an array to store the array’s components */ 
7% typeSloct is set prior to calling this */ 
7% routine. an address variable containing the */ 
Sk byte count is returned. */ 


A RRR RK RR KH K KKK KBR HK HK HK EK KK IK EK RK AK HK RK KE IK EZ 


allcSindexSoffset: proc addr; 
del a addr,b byte; 
a,base=typeSloct; 
call setaddrptr(4); 
do while (shr(byteptr,3) and formmask) = 7 and 
( byteptr and formmask ) = typeSentry; 
call setaddrptr(5); 
call setaddrptr(6+byteptr) ; 
basezaddrpitr; call setaddrptr(4) ; 
end; 
* here we have either a scalar,subrange,boolean, or char type */ 
b= shr(byteptr,3) and formmask; 


if (byteptr and formmask) = typeSentry then 
do; 
if b = @ or b = 1 then 
do; 
call error(’ia’); 
b=2; 
return double(b); 
end; 
if b=2 then “* character subrange */ 
do; 
b = 26; 


recSvarStyp(recSnst)=charSt ype; 
return double(b); 
end; 
7* boolean */7 
recSvarStyp(recSnst)=booleanSt ype; 
b = 2; return double(b); 
end; 
7® complex type */7 
if (( byteptr and formmask) <> typeSdcle or 
(( b <> @ ) and ( b <> 1 °))) then 
do; 
call error(’ia’); 
b=2; return double(b); 
end; 
if b=9 then 
do; 7* scalar type */ 
recSvarStyp(recSnst)=complexStype ; 
call setaddrptr(5) ; 
call setaddrptr(6+byteptr) ; 
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return double(byteptr + 1); 
end; 

/*® subrange type */ 
recSvarStyp(reconst)=ordStype; 
call setaddrptr(11); 
return addrptr; 

end allcGindexSoffset; 


ee PRPS PP NS PDP PRE SEPT LBD PP PROT ENPRORPRENGN DLP ER DIDS Dit dy br ibeiby ty Diop td 
/*%& setSvariablectype - this procedure is called x 
38 to set the variable type, variable sign,and */ 
48 address of the basic type given. the address*/ 
% variable ’lookupGaddr’ is set prior to the */ 
7% call. eS 


A RRR RRR BKK KBE RIE RK BK KE KS OK OK EE OK KK KK KK KK KK OK KK KO 7 


setSvarStype: proc; 


varSptr=varSptrt+l; base=lookupSaddr; 
call setaddrptr(4) ; 
if (byteptr and formmask) = consSentry then 
do; /7* constant variable */ 
subrSpnSs ign=pos; 
do while (shr(byteptr,3) and 93h) = 6; 
if (shr(byteptr,5) and Olh) = 1 then 
do; 
if subrSpnSsign=pos then subrSpnSsign=neg; 
else subrSpnSsign=pos; 
end; 
call setaddrptr(5) ; 
if not lookupSpnSonly(aptraddr) then 
do; 
call error(’ic’); 
7* put in default values to return with */ 
return; 
end; 
call setaddrptr(4%); 
if (byteptr and formmasi.) <> consSentry then 
do; 
call error(’ic’); 
/* put in default values to return with */ 
return; 
end; 
end; 
7% here we have a non-identifier constant variable */ 
if (shr(byteptr,3) and 3h) =1 then 
do; /“* integer or boolean constant */ 
if base < 190900h then 
do; “* boolean */7 
call setaddrptr(35) ; 
call setaddrptr(S+byteptr) ; 
varSbase(varSptr)=aptraddr; varSs ign(varSptr) =pos; 
varStype(varSptr) =¢h; 
end; 
else do; /7*® integer constant */ 
call setaddrptr(35); 
call setaddrptr(6+byteptr) ; 
varSbase(varSptr)=aptraddr; varStype(varSptr) =Sh; 
varSs ign(varSptr) =subrSpnSs ign; 
end; 
return; 
end; 
if (shr(byteptr,3) and 3h) = 2 then 
do; /“* real constant */ 
call setaddrptr(95) ; 
call setaddrptr(6+byteptr) ; 
varSbase(varSptr) =aptraddr; varStype(varSptr) =6h; 
varSsign(varSptr) =subrSpnss ign; 
return; 
end; 
7* default constant of string */ 
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call setaddrptr(3); call setaddrptr(6+byteptr) ; 
varSbase(varSptr)=aptraddr; varSt ype(varSptr) =7h; 


return; 
end; /“* of constant variables */ 
if (byteptr and formmask) = varSentry then 


do; “* declared variables x*/ 
ptrptr=shr(byteptr,3) and formmask; /* type of var */ 
call setaddrptr(S5); call setaddrptr(6+byteptr); 
varSbase(varSpir)=addrptr; /* relative addr of var X/ 
7% sign is always ignored */ 
do case ptrptr; 
/* case 9 ord variable */ 
do; 
varStype(varSptr) =19h; 
aptraddr=aptraddrt2; 
vipa ee) Naddrptr; * addr of parent */ 
end; 
/* case 1 integer variable * 
varStype(varSptr)=99h; 
7% case 2 char variable */ 
varStype(varSptr) =Obh; 
7* case 3 real variable */ 
varStype(varSptr) =Oah; 
/% case “ complex variable */ 
do; “* not implimented */ 
7 insert complex variable routines here */ 
end; 
7* case & boolean variable */ 
varStype(varSptr)=08h; 
end; /“* of variable case */ 
return; . 
end; 
if byteptr = 7@h then 
do; “* scalar constant */ 
call setaddrptr(S); call setaddrptr(6+byteptr); 
varSbase(varSptr)=aptraddr; aptraddr=aptraddr#+l; 
varSbase l(varSptr)=addrptr; /* parent type of scalar */ 
varStype(varSptr)=l1ih; 
return; 
end; 


end setSvarSt ype; 


AS RRR BERK MBM KK BW MKB KK BK OK KKK HEE KK RK KOK KK OR OK KR SOK OR RE RZ 
/* tloadSvariable ~- this procedure generates the */ 
7* intermediate code to load the next variable */ 
7% on the execution stack of the object file */ 
A MRR KR KK RB HK RK HK KK OK KK OKO OR OK OB RK OR KE KK IR KK RR KKK RR KK OR KR RR RZ 


loadSvariable: proc; 


if varStype(vardptr) < 68h then 
do; “* constant variable */ 
aptraddr=varSbase(varSptr) ; 
if varStype(varSptr)=04h then 
do; “%* boolean constant * 
call generate(Idii); call generate(byteptr) ; 
call generate(nop); “* high byte zero */ 
expStype(expSptr)=booleanStype; 
end; 
if varStype(varSptr)=93h then 
do; /“* integer constant */ 
call generate(Idii); call generate(byteptr) ; 
call generate(high(addrptr)); 
if varSsign(varSptr)=neg then 
call generate(negi) ; 
expStype(expSptr)=integerSt ype; 
end; 
if varStype(varSptr)=06h then 
do; “* bed constant */ 
call generate(Idib) ; 
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do ee to (bedsize/2) ; 
ca generate(dbyientr); ca ig? ; 
Were ddrsaptradar+e. ; call zgenerate(high(addrptr)) ; 
end; 
if varSsign(varSptr)=neg then 
call generate(negb); 
ezpStype(expSptr)=uns ignSexpon; 
end; “* of load bed */ 
if varStype(varSptr)=O07h then 
do; “* string constant */ 
call senerate(nop); /* not implimented */ 
expoStype(expoptr)=stringStype; 
end; 
varSptr=varSptr-1; 
return; 
end; /“* of constant variable load */ 3 
if varStype(varSptr) < lth then 
do; “* simple variables */ 
call generate(lita); 7% load addr of variable */ 
call generate( low( varSbase(varSptr))); 
call generate(high( varSbase(varSptr)));_ 
if varStype(varSptr)= @8h then 
do; /“%* boolean variable */ 
call generate(lod); 
expStype(lexpSptr)=booleanStype; 
end; 
if varStype(varSptr)=99h then 
do; /“% integer variable */ 
call generate(lodi); 
expStype(expSptr)=integerStype; 
end; 
if varStype(varSptr)= Oah then 
do; /“* real variable */ 
call generate(lodb) ; 
expStype(lexpSptr)=unsignSexpon; 
end; 
if varStype(varSptr)= O6bh then 
do; “* char variable */ 
call generate(lod); 
expStype(expSptr)=charStype; 
end; 
if varStype(varSptr)= 10h then 
do; 7% ord variable */ 
call generate(lod); 
expStype(expSptr)tordStype; 
expStypeSaddr(exzpSpir)=varSbasel(varSptr); 
end; 
varSptr=varSptr-1; 
return; 
end; 
if varStype(varSptr)= llh then 
do; /“* ord constant */ 
aptraddr=varSbase(varSptr) ; 
call generate(ldii); 
call generate(byteptr); call generate(nop) ; 
expStype(expSptr)= ordStype; 
expStypeSaddr(ezpSptr)= varSbasel(varSptr) ; 
varSptrivarSptr-1; 
end; 
end loadSvariable; 


Peers se es ts se ss ts ss sets 8888 8 Re 

* this procedure checks the top two */ 
/* variables on the execution stack */ 
7*& for proper type. */ 
ee ee ae eee 


checkSexprsStype: proc byte; 
if (expStype(expSptr)=exzpStype(expSptr-1)) and expStype(expSptr)<>@h 


then return true; 
if expStype(expSptr)=lh then 
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do; 
if expStype(exzpSptr-1)=3h then 
do; 
call generate(cnvi); /“* convert int to bed %/ 
expStype(CexpSptr)=3h; 
return true; 


end; 
else return false; 
end; 
if expStype(CexpSptr)=3h then 
do; 
if expStype(expSptr-1l)=lh then 
do; 
call generate(cn2i); /* convert second int to bed */ 
expStypelCexpSptr-1)=3h; 
return true; 
end; 
else return false; 
end; 
if expStype(expSptr)=0h then 
do; 


if expStype(lCexpSptr-1)<>@h then 
return false; 
else 
do; 
if expStypeSaddr(exp3ptr)=expStypeSaddr(expSptr-1) then 
return true; 
end; 
end; 
return false; 
end checkSexprsStype; 


A RRR RK KR RK RR KK OK OK KR RK KR KKK OK RK KOR RK KKK OK KOK EEK HZ 
/* writeSstring - this procedure writes */ 
1% a string to the intermed. code */ 
A RRRBRK RK HK KR RKB KK RK KR RK KKK KR RK KR IR KKK KEK 


writeSstring: proc; 


del n based printname byte; 
call setlookup(sp); 
call generate(wrvs) ; 
call generate(n); 
do ptrptr = 1 to n; 
call gwenerate(n(ptrptr)); 
end; 
end writeSstring; 


A RRHRRRBR HK RK RRR KKK KKK KKK KK RK KK RR KK KK KKB KEK Z 
/*% writeSvariable - this procedure will */ 
eS write a variable to the console via */ 
% the intermed. code. */ 
A RRERERRREKERRKRRKRRKRK KKK KKK KKK KR RKB KKK KKK KZ 


writeSvar: proc; 
if expSptr = 11 then 
do; 
call error(’es’); 
call mon3; 
end; 
expSptr=expSptrt+l; 
call loadSvariable; 
do case expStype(CexpSptr) ; 
call generate(wrvi) ; 
call generate(wrvi) ; 
call generate(wrvi) ; 
call generate(wrvb) ; 
call generate(wrvi) ; 
call generate(wrvi) ; 
end; “* of expStype case */ 


162 





expSptr=expSptr-1; 

end writeSvar; 
PRR AR RE RR ER RR IR EEK I TE ER NER KI MONET NESE Se Shee tee te 7 
7% readSvariable - this procedure generates */ 
7% the intermediate code to read 4 variablex/ 
7% from the console. *K/ 


sR ee Ke ee le Ne oe View es OE Ee 2 le sie ate ate Seats ate als ate alo ateade 
ap . . , & . 
Jiao Kee an ie eater oye age ok Pas a yw one re ete AAS 7,9 Me Oe Hm AO NO fe Oe OTS NOT EK EN MS 
7 


readSvar: proc; 
if varStype(varSptr) < O8h then 
call error(’ir’); 
else do; 
if varStype(varcpir) < lih then 
do; 
if warStype(varSptr)=98h then 
do; 7% read boolean not implimented */ 
end; 
if varStype(varSptr)=99h then 
do; 
call generate(rdvi); 
call generate(stdi); 
call generate( low( varSbase(varSptr))); 
call generate(high( varSbase(varSptr))); 
end; 
if varStype(varSptr)=Qah then 
do; “* real */ 
call generate(rdvb); 
call generate(stdb); 
call generate( low(varSbase(varSptr))); 
call generate(high( varSbase(varSptr))); 
end; 
if varStype(varGptr)=@bh then 
do; 7% read char not implimented */ 
end; 
if varStype(varSptr)=160h then 
do; 7 read ord not implimented */ 
end; 
end; 
if varStype(varSptr)=llh then 
call error(’ir’); 
varSptr=varSptr-1; 
end; 
end readSvar; 


if listprod then 
call printSprod; 


do case production; 


A RHKRKR ERR KK ERK EKER EE RRR RK IR EI I II RR IRE EI RRR IK NE OR LEI NEN SH 
SERRE ERK KERRIER ERR ER EKER IK KK HR RK EIEN KT IK NER BE EK I ER / 
PA RAK productions KZ 
AS RRR KKK HK RK KKB AEB KK ROK RK KBR EK RK KK ROK ROR RK BK IR KK KK KE NE OK OK BE OK EK RK EK ROK OB OK EK OK OK OK KOK 7 
SRRRKKRKRREK RAK REE KERR KR KKK KARRI IR RR ERIK KR AR RR I EK I I 


SP RE the following is the input grammar RK Z 
A RHR HK RK RK KK OK RK RK BK OK OK EK OK OK OK OK EK ORK OK OK KOK OK OK OK OK OK OK RR OK EK NE OR OR OK OK OS ROK OK EK OR IS EK RR OK OK 7 


J RR RIKER KR AHRK RK  NE KK OK OB KOK OK IK KK KK RK KR KK RS RB KK BK OR MEK AS RB OB RR OR AK OK EE OR RK EK OR KKK ORK RK ZH 


Via case 9 not used *S 


es 1 <program ::= <program heading> <blocH . —l- */ 


call printSerror; 
call printchar(’ ’”); 


163 





“® 
“xX 


as 
“xX 


es 


1% 


7% 


eS 


S 
4 


7% 


eS 


call erlf; 
call print(.’ compilation complete.S’); 
call crit: 
if uot (Cerrorcount > @) then 
do; 
call generate(all); 
call generate( lowlallocSaddr)); 
call generate(higeh(allocSaddr)); 
call generate(Cendp); 
end ; 
call writeSintSfile; 
call closeSintSfile; 
call mons; 
end; 


<program heading> ::= program “prog ident? ( 

<file ident> ) ; 

program “prog ident? ( 

<file ident> , <file ident> ) 


OG hNN 


e 
b ] 


4 <prog ident> ::= <identifier> 


5 <file ident> ::= “<identifier> 
if firstStime then 


do; 
firstStime = false; 
call enterSvarSid(9,sp,fileSentry) ; 
end; 
else 


call enterSvarSid(1l6,sp,fileSentry) ; 


6 <block> ::= <ldp»> <cedp»> <tdp> <vdp> <p&fdp> <stmtp> 
4 Cldp> ::= 
& | label <label string? ; 
9 <label string> ::= <label> 
if typenum = integerStype then 
do; 
call enterSvarSid(9,sp, lablSentry) ; 
call enterSlabel; 
end; 
10 | <labe!l string>® , ‘label> 
if typenum = integerStype then 
do; 
call enterSvarSid(9,sp, lablSentry) ; 
call enterSlabel; 
end; 
11 <label> ::= <number?> 


if typenum ‘> integerStype then 
call error(’I1s’); 


12 <cedp> 3:5 


13 | const <const def> ; 


we 


14 <const def> ::= <ident const de f> 


15 i <const def> 3; <ident const de f> 


16 <ident const def> ::5 <ident const> = ‘constant? 
call enterSconstSentry; 
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i 
7 


%/ 


K/ 


*K/ 


*7 


*7 


*7 


7 


*/ 


*/ 


KZ 


KS 


*/ 


*K/ 





a 
€ 


eS 


7% 


7% 


A# 


A 


7% 


7% 


as 


led <ident const? ::= <identifier> 
do; 
if lookupSonly(sp) then 
call error(’dc’); 
eall enterSvarSid(9,sp,consSentry) ; 
end; 


18 <constant> ::= <number> 
do; 
call convrtSconst(pos); 
constSvec(vecptr)=consSnumStype; 
vecptr=vecptrtl; 
end; 
19 | <sigm <number> 
do; 
if signtype=nege then 
call convrtSconst(neg); 
else call convwrtSconst(pos); 
constSvec(vecpir)=consSnumStype; 
vecptr=vecptrt+l; 
end; 
20 | <constant ident> 
do; 
cons tOvec(vecptr) =consSidentSt ype; 
vecptr=vecptrtl; 
call storeSconstSident; 
end; 
21 | <signm> <constant ident> 
do; 
if signtype=neg then 
constSvec(vecptr)=consSsidentStype; 
elsc constSvec(vecptr)=consSidentStype; 
veceptr=vecptrtl; 
call storeSconstSident; 
end; 
22 | <string> 
do; 
cons tSvec(vecptr)=consSstrStype; 
vecptr=vecptrtl; 
call storeSconstSident; 
end; 


23 <constant ident> ::= <identifier> 


oe 


24 <sign> 3:2 + 
signtype=pos; 
25 


sient ype=neg; 


26 <tdp> ::5 
caseSstmt=false; 
20 | type <type def string? ; 


caseSstmt=false; 


28 <type def string> ::= <type id> 


we 


29 | <type def string> ; <type id> 


ae 


30 <type id> ::= <type ids> = <type? 
do; 

aptraddr=typeSaddr; 

addrptr=typeSloct; 
end; 


31 <type ids> ::= <identifier> 
do; 
if lookupSonly(sp) then 
call error(’dt’); 
parentStype=sbtbl; 
call enterSvarSid(78h,sp,typeSentry) ; 


165 


/ 


*/ 


*/ 


KS 


*S 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*7 


*/ 


*/ 


*/S 





cail limits(2); 
typeSaddr=sbtbl; 


sbtbl=sbtb1+2; 

end ; 
7% 32 <type> ::= <simple type> 
7% 30 | <structured type? 
7% 34 [| <pointer type> 
Si 33 <simple type> ::= <scalar type> 
7% 36 | <subrange type> 
Sx 37 | <type ident> 
aes 33 <type ident> ::= <identifier> 


if lookupSpnSid(sp,typeSentry) then 
typeSlioct=lookupSaddr; 
else 
do; 
call error(’ti’); 
typeSloct=.initSsymbStbl; /* integer default */ 


end ; 
7% 39 <sealar type> ::= ( <tident string? ) 
SR 40 <tident string ::= <identifier> 

do; 


typeSordSnum= 9; 

typeSloct=sbtbl; 
if lookupSonly(sp) then 

call error(’dt’); 

call enterSvarSid(9,sp,typeSdc le) ; 
call Llimits(3); 

aptraddr=sbtbl; 

byteptr=90; 

aptraddr=aptraddr+l; 
addrptr=parentStype; 
sbtbl=sbtb1+3; 

end; 
7% 41 [ <tident string? , <identifier> 
do; 

typeSordSnum= typeSordSnumt 1; 
typeSloct=sbtbl; 

if lookupSonly(sp) then 

call error(’dt’); 

call enterSvarSid(8,sp, typeSdcle); 
call Llimits(3); 

aptraddr=sbtbl; 
byteptr=typeSordSnun; 
aptraddr=aptraddrvtl; 


addrptr=parentStype; 
sbtbl=sbtbIi+3; 
end; 
7% 42 <subrange type> ::= <constant> .. ‘constant? 
call enterSsubrSentry; 
aos 43 {structured type» ::= <unpacked structured type? 
Vee 44 | packed 
7% 4,4, <unpacked structured type? 
7% 45 <unpacked structured type> *:= <array type? 
7% 46 | <record type? 
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*/ 


*/ 


*/ 


*/ 


*K/ 


*/ 


*/ 
*/ 
*/ 
*/ 


xf 





7% 47 | <set type> */ 
+ 

7% 48 | <file type> */ 
$ 

7% 49 <array type> ::= array <lp> < index type string> <rp> */ 

7* p 49 of <component type> */ 
0; 


if arrySptr = -1 then arrySptr=@; 

call enterScomplexStyne( 17h); 
aryOdmSadroptr-arySdmSadrSptr-numSarrySdimen(arrySptr) ; 
arrySbase=base; 

call limits((numSarrySd imen(arrySptr) *2) +3) ; 
call setaddrptr(5); 
byteptr=numoarrySdimen(arrySptr) ; 

call setaddrptr(6) ; 

addrSptr=typeSloct; 

call allcSoffset(typeSloct); 

basearryShase; 

call setaddrptr(8); 

addrptr=arrylSqtylarrySptr) *alleSqty; 

call setaddrptr(19); 

byteptr=allcSbasicStype; 

do subrSform=9 to (numSarrySdimen(arrySptr)-1); 

call setaddrptr(11+(2*subrSform)) ; 
eee en he nCar vadusadrSptr+subrformt 1) ; 

end; 

typeSloct=base; 
sbtbl=sbtbl+((numSarrySdimen(arrySptr) *2) +6) ; 
arrySptr=arrySptr-1; 


end ; 
7 * 099 < lp> 233 (% */ 
7 31 <rp> 335 *) */ 
Vis v2 <index type string» ::= <index type> so 
do; 
if arrySptr=arrySnest~1 then 
do; 


call error(’an’); 
arySdmSadrSptr=arySdmSadrSptr-numSarrySdimen(arrySptr) ; 
end; 
else arrySptr= arrySptrtl; 
arryod imSptr=9; 
arySdmSadrSptr=arySdmSadrSptrt1; 
arrySdimen(arySdmSadrSptr)=typeSloct; 
arrySqty(CarrySptr)=allcSindexSoffset; 
numSarrySdimen(arrySptr)=1; 
end; 
7% 33 | <index type string> , x/ 
78 00 <index type> */ 
do; 
if arrySdimSptr=maxSnumSarrySdimen-1 then 
call error(’ad’); 
else arrySdimSptr=arrySdimSptrt+1; 
arySdmSadrSptr=arySdmSadrSptrt+1; 
arryédimen(arySdmSadr$Sptr)=typeSloct; 
arrySqty(arrySptr) zarryoqty(arrySptr)*allcSindexSoffset; 
numoarrySdimen(arrySptr) =numSarrySdimen(arrySptr)+1; 


end ; 
7% 3% <index type> ‘:= <simple type? */ 
7% 35 <component type> ‘:= <type> */ 
7% 36 <record type> ::= record <field list> end */ 
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do; 
variantSpart(recSnst)=false; 

base, typeSloct=recSparSadr(recSnst) ; 
if varScasSval(recGnst) <> 0 then 
call error(’iv’); 
call setaddrptr(5); 
addrptr=fxdSofstSbse(recSnst)-1; 
call setaddrptr(7); 
addrptr= prvSsbtblSentry; 
recSnst=recSnst~-1; 


end ; 

Tae oe <field list> ::= <fixed part> 
. 

A % Es) | <fixed part> ; ‘variant part> 

1% 39 | <variant part> 

7% 69 «fixed part> ::= <record section> 

/* 61 | <fixed part> ; “record section> 

7% 62 <record sectiom> ::= <field ident string> : < type> 
do; 


call allcSoffset(typeSioct) ; 
7% allcSbasicStype and allcSqty are set */ 
do ptrptr = 90 to recordSptr; 
base = recS$addr(ptrptr) ; 
call setaddrptr(5); 
call setaddrptr(8+tbyteptr) ; 
addrptr=allcSqty; 
aptraddr=aptraddr+t2; 
addrptr=typeSloct; 
aptraddr=aptraddr+t2; 
addrptr-curSofst(recSnst) ; 
curSofst(recSnst)=curSofst(recSnst) 
+ allcSqty; 
end; 
recordSptr=@; 
if fxdSofstSbse(recSnst) < curSofst(lrecSnst) 
then fxdSofstSbse(recSnst)=curSofst(recSnst) ; 


end; 
1% 63 | 
7% 64 <field ident string> ::= <field ident> 
7% 65 | <field ident string? , 
7% 65 <field ident> 
is 66 <field ident> ::= <identifier> 
do; 


if recordSptr <> 5 then recordSptr=record$Sptrtl; 
else call error(’rn’); 
recSaddr(recordSptr)=sbtbl; 

call enterSvar$id(58h, sp, typeSdc le) ; 

call limits(8) ; 


aptraddr=sbtbl; 

addrptr=recSparSadr(recSnst) ; 

sbtbl=sbtb1+8; 

if variantSpart(rec$nst) then 
do; 


base=recSaddr(recordSptr) ; 
call limits(2); 
call setaddrptr(4) ; 
byteptr=Odfh; 
end; 

end; 
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*/ 


*/ 


*/ 


*/ 


*7 


*/ 


*/ 


*/ 


*7 


*/ 


*/ 





es 


67 


; ‘variant part> ::= case <tag field> <type ident> of 
oS 67 ‘variant string> 
7 68 | case <type ident> of 
1 68 <variant string> 
hos 69 variant string> ::= <variant> 
Ves 790 | <variant string> ; <variant> 
3 
7x <1 <tag field> ::= <field ident> : 
tagSfdCrecSnst)=true; 
7% 42 <variant> ::= <case label list> : ( <field list> ) 
7% 73 | 
Si Tt “case label list> ::= «case label> 
ms 75 ! <case label list> , <case label> 
ste 76 <case label> ::= <constant> 
if caseSstmt then 
do; 
7% insert case stmt routines */ 
end; 
else 
do; 
if not variantSpart(recSnst) then 
do; 
variantSpart(recS$nst)=true; 
varScasS3tplrecSnst)=typeSloct; 


varScas$val(recSnst)=allcSindexSoffset; 


cal 
if 
do 


cur 
en 


1 allcSoffset(typeSloct); 
tagSfd(recSnst) then 
tagsfd(recSnst)=false; 
base=recSaddr(recordSptr) ; 
call setaddrptr( 4); 
byteptr=9fh; 

call setaddrptr(5) ; 

call setaddrptr(8tbyteptr) ; 
addrptr=varScasSval(rec$nst); 
aptraddr=aptraddr+t2; 
addrptr=varScas$tp(recSnst) ; 
aptraddr=aptraddrt2; 
addrptr=curSofst(recSnst) ; 
Sofst(recSnst)=curSofst(recSnst)t+talleSqty; 
d; 


*/ 
*7 


*/ 
*S 


*/ 


x7 


*7 


*/ 


*/ 


7 


7 


*7 


varSofstSbse(recSnst)=curSofst(recSnst); 
fxdSofstSbse(recSnst)=curSofst(recSnst); 


end; 
7% call compareSconstSvariant; */ 
7* the routine above checks the case lable with the variant type 


curSofst(recSnst)=varSofstSbse(recSnst);3 

vecptr=vecptr-1; 

constSptr,constS$indx,constSpnSptr=9; 
end; 


7# rere <set type> ::= set of <base type? 
call enterSstructStype(27h) ; 


TR ws <base type> ::= “simple type> 
es 79 <file type> ::= file of <type> 


call enterSstructStype(2fh) ; 
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7% 
7% 


aS 


TR 


es 


7% 


A 


&9 


<pointer type> ::= $ <type ident> 


call enterSstructStype(37h) ; 


81 


82 


83 
84 
84 


§5 
do; 


<vdp> <::= 


| var <var declar string» ; 


<var declar string> ::= <var declar> 


1 <var declar string> ; 
<var declar> 


» ‘var declar> ::= <ident var string> : <type> 


call allcSoffset(typeSloct); 
if not allocate then 


do; 


allcSqty=1; 
allcSbasicStype=9; 


end; 


do while varSptr <> -1; 
base=varSbase(varSptr) ; 
call sectaddrptr(4) ; 
byteptr=shl(allcSbasicStype,3) or varSentry; 
aptraddr=varSbasel(varSptr) ; 
addrptr=allocSaddr; 
allocSaddrf=allocSaddrtallcSqty; 
aptraddr=aptraddrtd2; 
addrptr=typeSloct; 
varSptr=varSptr-1; 


end; 
end; 
8s <ident var string» ::= <identifier> 
do; 
varSptr=9; 


varSbase=sbtbl; 

cali enterSvarSid(9,sp,varSentry) ; 
call limits(4); 

varSbasel=sbtbl; 


sbtbl=sbtb1t+4; 
end; 
8? 1 <ident var string? , 
87 <identifier> 
do; 


if varSptr <> 190 then 


do; 


varSptr=varSptrt1; 
varSbase(varSptr)=sbtbl; 

call enterSvarSid(0,sp, varSentry) ; 
call limits(4); 

varSbase l(var$Sptr)=sbtbl; 


sbtbl=sbtb1+4; 
end; 
else call error(’wn’); 
end; 
88 <p&8fdp> ::= 
89 | <porf declar> 
99 <porf declar> ::= <proc or funct? ; 
oh 1 <porf declar> “proc or funct> 
92 {proc or funct> ::= «procedure dec larat ion> 
93 1 <function declar> 


1¢® 


° 
3 


I 


x7 


*/ 


*/ 


x7 


*/ 


*/ 


3 
\ 


*/ 
*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 





7% 


ale 
“> 


a& 


as 


7X 


as 


748 


7% 


94 
94 


we 


95 


50 
96 


oe 


271% 


96 
99 
99 
100 
101 
102 
103 


104 
105 


106 


107 
108 


1909 


we 
— a as 
posh fam fmt 
a a 


2e 


112 


113 


114 


115 


116 


117 


118 
do; 


<procedure declaration» ::= <procedure heading> 
<block 


<procedure heading> ::= <proc id> ; 


[ <proce id> (¢ 
<formal para sect list> ) 


<proc id> ::= procedure < identifier> 


<formal para sect list> ::= <formal para sect> 


| <formal para sect list> ; 
<formal para sect> 


<formal para sect> ::= <para group> 
| var <para group> 
| function “para group> 


| procedure <proc ident lLlist> 


<proc ident list> ::= <identifier> 


| <proc ident list> , <identifier> 
<para group> ::= <para ident list> : <type ident> 


<para ident list> ‘:= Sidentifier> 


| <para ident list> , ‘identifier. 


<function declar> ‘$:= <function heading> <block> 
<function heading» ::= <funct id> : <result type? ; 
| <funct id> ¢ 


<formal para sect list> ) : 
<result type> ; 


<funct id> ::= function <identifier> 


<result type> ‘:= <type ident> 


<stmtp>» ::= <compound stmt> 


<stmt> ::= <bal stmt> 
| <unmbal stmt> 


| <label def> “<stmt> 


<bal stmt> ::= <if clause» <true part> else <bal stmt> 


call generate(I1bl); 
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*/ 


x7 


*7 


*/ 


*7 


*7 


* 7 


*/ 


*/ 


*7 





7 


7% 


7% 


as 


7% 


call senerate(low(lifSlb1l( ifSptr)+1)); 
ea ki senerate(high(ifSlbl( ifSptr)+1)); 
ifSptr=ifSptr-1; 


end; 
ey | <simple stmt> 
120 €unbal stmt> ::= <1f clause> <stmt> 
do; 
call generate(Ibl); 
call generate(low(ifSlbl(ifSptr))); 
call generate(high(ifSlb1l(ifSptr))); 
ifSptr=ifSptr-1; 
end; 
121 | <if clause> <true part> else 
121 <unbal stmt> 
do; 
call generate(Ilbl); 
call generate(low(ifSlb1l(ifSptr)+1)); 
call generate(high(ifSlb1l(ifSptr)+1)); 
ifSptr-=ifSptr-1; 
end; 
F 122 <if clause> ::= <if> <expression> then 
0; 
area °~Poe te) *booleanSt ype then 
0; 
expSptr=expSptr-1; 
call generate(notx) ; 
call generate(ble); 
call generate(low(lifSlbl(ifSptr))); 
call generate(high(ifSlb1l(ifSptr))); 
end; 
else call error(’ce’); 
end; 
123 Cif> ::5 if 
do; 
if ifSptr=9 then 
do; 
call error(’io’); 
call mon3; 
end ; 
ifSptr-=ifSptrtl; 
ifSlblCifSptr)=lablcount; 
lablcount=lablcount=2; 
end; 
124 <true part> ::= <bal stmt> 
do; 
call generate(brl); 
call generate(low(ifSlb1l(ifSptr)+1)); 
call generate(high(ifSlb1(ifSptr)+1)); 
call generate(Ilbl); 
call generate(lowlifSlb1l( ifSptr))); 
call generate(high(ifSlbl(ifSptr))); 
end; 
125 <label def> ::= <label> 
if lookupSpnSid(mp,lablSentry) then 
do; 
call setaddrptr(5); 
call setaddrptr(6+byteptr) ; 
call generate(I1bl); 
call generate(lowladdrptr)) ; 
call generate(high(addrptr)) ; 
end; 
else call error(’ul’); 
126 <simple stmt> ::= <assignment stmt> 
127 | <procedure stmt> 


1v2 


*/ 


KS 


*/ 
*7Z 


RS 


*/ 


K/ 


*/ 


*/ 


*/ 





7% 


7% 


es 


7% 


7 


' 128 | <repetitive stmt> 

| 129 1 <case stmt> 

| 136 1 <with stmt> 

131 1 <read stmt> 

| 132 | <write stmt> 

| 133 | <goto stmt? 

134 1 <compound stmt> 

"185 | 

F 136 <assignment stmt> ::2 <variable> := <express ion 
Oo; 


call generate(lita); 

call generate( low( varSbase(varSptr))); 
call generate(Chigh(varSbase(varSptr))); 
do case expStype(lexpSptr) ; 


7* case ® ~- ord type */ 
if varStype(varSptr)<> lih or expStypeSaddr(expSptr)<> 
varSbasel(varSptr) then 
goto errorSloop; 
else call generate(std); 
7k case 1 —- integer type */ 
if varStype(varSptr)=09h then 
call generate(stdi); 
else do; 
if varStype(varSptr)=Oah then 
do; 
call generate(cnai) ; 
call generate(stdb) ; 
end ; 
else goto errorSloop; 
end; 
/* case 2 - charStype */ — 
if varStype(varSptr)=@bh then 
call generate(std); 
else goto errorSloop; 
/* case 3 - real type */4 
if varStype(varSptr)=9ah then 
call generate(stdb) ; 
else goto errorSloop; 
/* case 4 - string type */ 
; “* not implimented */ 
/* case 5 - boolean type */ 
if varStype(varSptr)=98h then 
call generate(std); 
else goto errorSloop; 


end; /“* of case */ 
goto second$S loop; 


errorSloop: call error(’at’); 


second$loop: 


expSptr=expSptr-1; 
varSptr=var$ptr-1; 


end; 


137 <variable> ::= <entire variable> 


138 i <variable> $ 
139 | <variable> <Ip> <expres list> <rp> 
140 | <variable> . <field ident? 


141 <entire variable> ::= <variable ident> 
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*/ 


*/S 


*7S 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


7S 


*/ 


*/ 


x7 


*/S 





eS 


A 


A 


“* 
1x 
A% 


A 


7K 


7% 


142 <variable ident> ::= <identifier> 
if not lookupSonly(sp) then 
call error(’dt’); 
else do; 
Ba setSvarStype; “* lookupSaddr set here */ 
end; 


143 €expres list> ::= <expression> 
144 | <expres list> , <expression> 
145 <expression> ::= “simple expression> 
146 1 <simple expression> 
146 <relational operator> 
5 146 <simple expression> 
0; 
opSptr=opSptr-l1; 
if checkSexprsStype then 
do; 
if (expStype(expSptr)<>4h) or(expStype(exp3ptr)<>3h) then 
do case (opStype(opSptr)-8bh) ; 
7*® case 0 - * */ 
call generate(leqli); 
call generate(neqi) ; 
call generate(leqi); 
call generate(geqi); 
call generate(lIssi); 
call generate(grti); 
3; “* “in" not implimented */ 
end; “* of case for integers */ 
if expStype(expSptr)=3h then 
do case (opStype(lopSptr)-&h) ; 
call generate(Ceqlb); 
call generate(negqb); 
call generate(leqb); 
call generate(gegqb) ; 
call generate(lIssb); 
call generate(gertb); 
; “* “in" not implimented */ 
end; “* of case for reals */ 
if expStype(expSptr)=¢4h then 
do; “* tests for strings not implimented */ 
end; 
expStype(expSptr)=booleanStype ; 
end; 


else call error(’ce’); 
expSptr=expSptr-1; 
end; 


ee 
iT 
t 


147 <relational operator> 
do; 
opStype(opSptr) =08h; 
opSptr=opSptr+tl; “* next to fill */ 
end; 
148 1 < > 
do; 
opStype(opSptr) =O9h; 
opSptr=opSptrtl; 
end; 
149 1 < = 
do; 
opStype(opSptr) =Gah; 
opSptr=opSptrr+l; 
end; 
159 | > = 
do; 
opStype(opSptr) =Obh; 
opSptr=opSptrtl; 
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*/ 


*/ 


*/ 


*K/ 


*/ 
*/ 
K/ 


*/ 


*/ 


*/ 


*/ 





end; 
A 191 | < 
do; “ 
opStype(opSptr) =Och; 
opSptr=opSptrtl; 


end; 
1 152 | > */ 
do; 
opStype(opSptr) =O0dh; 
opSptr=opSptr+1; 
end; 
7% 153 fe 7 
do; 
opStype(opSptr)=9eh; 
opSptr=opSptrtl; 
end; 
eS 154 <term ::2: <factor> */ 
1% z 155 | <term <multiplying operator> <factor> i 
0; 
opSptr=opSptr-1; 
if checkSexprsStype then 
do; 
if opStype(opSptr)=Oh then /“* multiplication ¥/ 
do case expStype(expSptr); 
eall error(’ce’); /“* case 0 - ord */ 
call generate(muli); /* case 1 - intezger */ 
call error(’ce’); 
call generate(mulb); /* case 3 - real ¥*/ 
call error(’ce’); /7* case 4 - string */ 
call error(’ce’); /* case 5 - boolean */ 
end; “* of mul case */ 
if opStype(CopSptr)=lh then “* real division */ 
do case expStype(expSptr) ; 
call error(’ce’); /* case 0 - ord X/4 
do; 7* case 1 - integer with real result */ 
call generate(cnvi); /’* convert Ist integer */ 
call generate(cn2i); “* convert 2nd integer */ 
call generate(divb); 
expStype(CexpSptr-1)=unsignSexpon; 
end; 
call error(’ce’); 7* case 2 - char */ 
call generate(divb); /“* case 3 - real */ 
call error(’ce’); /“* case 4 ~- string */ 
call error(’ce’); /7* case 5 - boolean */ 
end; /7* of div case */ 
if opStype(opSptr)=2h then /“* integer divide */ 
if expStype(expSptr)= integerStype then 
call generate(divi) ; 
else call error(’ce’); 
if opStype(opSptr)=3h then /“* integer mod */ 
if expStype(expSptr)-integerStype then 
call generate(dcri); /7* "mod" not implimented */ 
else call error(’ce’); 
if opStype(opSptr)=¢h then “* boolean and */ 
if expStype(expSptr)=booleanStype then 
call generate(andx); 
else call error(’ce’); 
end; 
else call error(’ce’); 
expSptr-expSptr-1; 
end; 
7% 156 <multiplying operator> ::= * */ 
do; 
opStype(opSptr) =O0h; 
opSptr=opSptr+l; 
end; 
7% 157 ae a 


do; 
opStype(opSptr)=9O1h; 
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opSptr=opSptrtl1; 


end; 
fos ~~ | div */ 
opStype(opSptr) =92h; 
opSptr=opSptrtl; 
end; 
7% 159 nad “7 
do; 
opStypel(opSptr) =O3h; 
opSptr=opSptrtl; 
end; 
7x 160 | and a, 
do; 
opStypelopSptr) =04h; 
opSptr=opSptrt+l; 
end; 
SX 161 <simple expressiom ::= <term */ 
A 162 | <sigm <term */ 
if signtype = neg then 
do; 
if expStype(expSptr)=unsignSexpon then 
call generate(negb); 
else if expStype(expSptr)=integerStype then 
call generate(negi); 
else call error(’uo’); 
end; 
7K 163 | <simple expression> */ 
7% : 163 <adding operator> < term */ 
O35 
opSptr=opSptr-1; 
if checkSexprsStype then 
do; 
if opStype(opSptr)=Sh then /“* arith add */ 
do case expStype(expSptr) ; 
call error(’ce’); 
call generate(addi);/* case 1 - integer */ 
call error(’ce’); 7% case 2 - char */ 
call generate(addb); /“* case3 - real */ 
call error(’ce’); /“* case 4 - string */ 
call error(’ce’); /*® case 53 - boolean */ 
end; /“* case */ 
if opStype(opSptr)= 6h then “* arith subtre */ 
do case expStype(expSptr); 
call error(’ce’); /7* case 9 - ord type */ 
call generate(subi) ; 
call error(’ce’); 
; “* call generate(subb); */ 
7* not implimented */ 
call error(’ce’*); 
call error(’ce’); 
end; 
if opStype(opSptr)=7h then “* boolean or */ 
do; 
if expStype(expSptr)=booleanStype then 
call generate(bor) ; 
else call error(’ce’); 
end; 
end; 
else call error(’ce’); 
expSptr=expSptr-1; 
end; 
7% 164 <adding operator> ::= + */ 
do; 
opStype(opSptr) =05h; 
opSptr=opS8ptrtl; 
end ; 
AX 165 j= x7 
do; 
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end; 
ae 166 | or 
do; 
opStypelopSptr) =-07h; 
opSptr=opSptr+l1; 
end; 
A 167 <factor> ::2+ <wariable> 
do; 
if expSptr=11 then 
do; 
call error(’es’); 
call mon3; 
end; 
expSptr=expSptr+1; 
call loadSvariable; 
end; 
S* 168 | <variable> ( “actual para list> ) 
A#* 169 | € <expression> ) 
es 1790 | <set> 
SH 171 | not <factor> 
if expStype(expSptr)=booleanStype then 
call generate(notz) ; 
else call error(’ce’); 
SH 172 [ <number> 
do; 
if expSptr=11 then 
do; 
call error(’es’); 
call mons; 
end; 
expSptr=expSptrt+1; 
if typenum=integerStype then 
do; 
expStype(expSptr)=integerStype; 
allcSaqty=converti(sp, pos); 
call generate(ldii); 
call generate(lowlallcSqty)) ; 
call generate(Chigh(allcSqty)); 
end; 
else do; 
expStype(expSptr) =unsignSexpon; 
call convrtbecd(sp, pos); 
call generate(Idib); 
do ptrptr=0 to bedsize-1; 
call generate(bcdnum(ptrptr)); 
end; 
end; 
end; 
/# 173 1 nil 
7% 174 | <string> 
7# 175 <actual para list> ::= <actnal para> 
A 176 | <aectual para list> , 
Sx 176 <actual para> 
A#* 177 <set> ::= <lp> <element list> ‘rp> 
A 178 <element list> ::5 
7% 179 | <xelement list> 


opStype(lopSptr) =06h; 
opSptr=opSptrt+l1; 


1¢? 


KS 
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*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 


*/ 





7X 


7% 


A* 


A 


A 


f® 


7% 


7* 


7 


7% 


1m 


7% 
7% 


7*® 


f*® 


7 
“* 


7% 


7% 


7% 


i893 <xelement list> ::= <element> 
. 181 | <xelement list> , <element> 
182 <element> ::= <expression> 
183 | <expressiom> .. <expression> 
184 <goto stmt> ::= <goto> < label> 
if lookupSpnSid(sp, lablSentry) then 
do; 


call setaddrptr(35); 
call setaddrptr(6+byteptr) ; 
call generate( low(laddrptr)); 
call generate(high(addrptr)); 
end; 
else do; 
call error(’ul’); 
ae generate(nop); call generate(nop) ; 
end; 


185 <goto> ::= goto 
call generate(brl); 


186 <compound stmt> ::= <begim> <stmt Llists> end 


we 


187 <begin> ::= begin 


@e 


188 <stmt lists> ::= <stmt> 


189 | <stmt lists> ; <stmt> 
196 <procedure stmt> ::= <procedure ident> 
191 | <procedure ident? (¢ 
191 <actual para list> ) 


192 <procedure ident> ::= <identifier> 


193 <actual para> ::= ‘expression? 


=e 


194 rec variable list> ::2 <variable> 


~2e 


195 | <rec variable list> , 
1995 <variable> 


ae 


196 read stmt> ::2= “read head> ( <io list> ) 


197 <read head> ::= read 
do; 
writeSstmt=false; 
allocate=false; 


end; 
198 { readin 
do; 
writeSstmt=false; 
allocate=true; 
end; 
199 <write stmt> ::= <write head> ¢ ‘io list> ) 


if allocate then call generate(dump) ; 
200 | <write head> 
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*/ 


*/ 


*/ 


K/ 


KZ 
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*/ 


*/ 
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7% 


eS 


7% 


7% 


aS 


eS 


7% 


7* 


7% 


7 


7% 


7* 
7% 


7 


7 


7% 


ie 


7 


iS 
7% 


7% 


7 


7 * 


if allocate then call generate(dump); 


20 1 <write head> ::= write 
do; 
allocate=false; 
writeSstmt=true; 
end; 
262 ! writeln 
do; 
allocate=true; 
writeSstmt=true; 
end; 
293 <io list> ::= <file ident> * , <var list> 


not implimented */ 
204 [| <var list> 


205 <var list> ::= <variable> 
if writeSstmt then call writeSvar; 
else call readSvar; 

206 | <string> 
if writeSstmt then call writeSstring; 
else do; /“*® not implimented */ 

end; 

207 t <var list> , <variable> 
if writeSstmt then call writeSvar; 
else call readSvar; 

208 ! <var list> , <string> 
if writeSstmt then call writeSstring; 
else do; /“* not implimented */ 


end; 

269 <case stmt> ::= <case express» <case list elemt list> 
209 end 
216 <case express> ::= case ‘expressiom of 

do; 

cagseSstmt=true; 

end; 
211 <case list elemt list» ::= <case list element> 

ale 1 <case list elemt list? ; 
212 <case list element> 
213 <case list element> ::5 

214 ! <case label list> : <stmt> 
215 <repetitive stmt> ::= “while stmt> 

216 ! <repeat stmt> 

21¢ 1 <for stmt> 
218 <Cwith stmt> ::2 <with <rec variable list> <do> 
218 <bal stmt> 
219 <with> ::= with 
220 <do> ::= do 
221 <while stmt> ::2 <while> <expressiom <do> <bal stmt> 


*. 
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K/ 
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1% Zen <while> ::= while */ 


A%* 223 <for stmt> ::= <for> <control variable> := <for list> */ 
TR 223 <do> <bal stmt> */ 
/* 224 <for> ::= for */ 
UES 225 “for list> ::= <initial value> <to> “final value> */ 
1% 226 | <inmitial value> <downto> <final va lne> */ 
vk 22 control variable> ::= <identifier> */ 
A 228 <initial value> ::= <expression> */ 
Vik 229 <final value> ::= <expression> *K/ 
A 230 ‘repeat stmt> ::= <repeat> <stmt lists> <until> */ 
A* 236 <express ion> */ 
do; 


repeatSptr=repeatSptr-l1; 

if expStype(expSptr)=booleanStype then 

do; 
expSptr=expSptr-l1; 
call generate(notx) ; 
call generate(ble); 
call generate( low repeatSlbl(repeatSptr))); 
call generate(high(repeatSlbl(repeatSptr))); 


end; 
else call error(’ce’); 
end; 
7 231 <repeat> ::= repeat */ 


do; 
call generate(lbl); 
call generate(low( lablcount)) ; 
call generate(high( lablcount)); 
repeatSlbl(repeatSptr)=lablcount; 
lablcount=lablcount+l; repeatSptr=repeatSptrtl; 


end; 
“* 232 Cuntil> ::= until Cd 
ee 23a Gtoo is c= to */ 
7% 234 <downto> ::= downto *K/ 
A* 235 not used, overflow indicator */ 
, 
end; /* of case statement */ 


end synthesize; 


A RMR RRR KR RR KK KK RK KK KOK RK KK KE RK OK KK RK OR OK OK ROR OK OK OK OK OK OK OK OK OK OK EE OK ER ROKK KOK KKK RK KKK 
A RR KARR KK RK RK RR EK ERK RE OR KK RK OR OK OR KK OK OR EK OE AR OK OK OK OK IE OR KK OE OK OK OR IS OK OK AEE OK RE OK KE KOK KKK KZ 
ARK error recovery routines KK / 
IES TEESE LESS SELES ESS ESL ES SSS ELSE DSSS LSE SESS SSS SSE PSPS SSS SPSS SS SS SS tb bb DS Oe 
A RR RK RK KK RK RK AK KR KKK KE EK KK KOK RK OB RK OK OR RK OK OK KE EK OR RK OB OK OK OK OK AR ORK OR OK OK SSK OK OR KOK KKK / 


180 





noconflict: proc (cstate) byte; 
dcl cstate statesize, (i,j,k) 
J= indexl(cstate); 
k= jy + index2(cstate) 
do i J to k; 
if readICi) 
end; 
return false; 
end noconflict; 


- 1; 


recover: proc statesize; 
dcl tsp byte, 
do forever; 
tsp = sp; 
do while tsp <>? 255; 


indexs ize; 


token then return true; 


rstate statesize; 


if noconflict(rstate:=statestack(tsp)) then 
do; 7*& state will read token */ 
if sp <> tsp then sp = tsp - 1; 
return rstate; 
end; 
tsp = tsp - 1; 
end; 
call scanner; 
end; 


end recover; 


A BRR RHR RK KKK ROKK KKK RK OR KKK RK KOR OK RK OK KR RK OR KOK OK OK OK OK OK OR OK OK OE OK EE EK EEK OK OK OK OK OR KOK OOK OR KK KZ 
A RRR RHR BRK RK OR RK KR KK OK OK KE OK OK OK AR OK OR OK OK KOK OK OK OK OK OK OK OK OK OK OK OK OK AS OK OK BO OK OK OK EK OK OK OK NE TK OK OK OK XK NS OK OK OK OK AR KOK Z 
parser 
A RRR RRR KK BRK RK KKK KK RK OK OR ARK OK OR OR OK OK OK KOK OKO OK OK OK OK OK KOK OK OK OK OK OK OK OK ROKK OK OK RK KOK AB RK OR KI KKK KZ 
A RAR RR RK KR OK OK OK OK ROK OR OK OR OE RK IE OK OK OK OK 2K 2K OK OK OK OK 2 OK OK OK OK OK AB OK KOS OK OK NE OK IS OK OK OE OK AS OK OK AS KOK OK OK OR OB OE OS ISR KOK IE OK KZ 


A KR lalr 


routines 


/*block for declarations*/ 
index byte; 


do; 

dcl (i,j,k) indexsize, 

initialize: proc; 
call initializeSscanner; 
call initializeSsymtbl; 
call initializeSsynthesize; 
call title; 

end initialize; 

getinl: proc indexsize; 


return indexl(state) ; 
end getinl; 


gwetin2: proc indexsize; 
return index2(state) ; 
end getin2; 


incsp: proc; 

if (sp := sp + 1) 
call error(’so’); 

incsp; 


end 


lookahead: proc; 
if nolook then 
do; 
call scanner; 
nolook = false; 
if listtoken then 


length(statestack) then 


call printStoken; 


end; 


181 





end lookahead; 


setSvarcSi: proc(i); “* set varc, and incrmnt varindex */ 
dcl i byte; 


varc( var index)=i; 
if (varindex:=varindex+l) > length(warc) then 
call error(’vo’); 
end setSvarcSi; 


7* initialize for input - output operations */ 
call move(.rfcb,.wfcb,9); “7% put filename in write feb */ 
call setupSintSfile; /* creates output file for generated code */ 
call initialize; 


do forever; 
do while true; /*® initialize variables */ 
compiling,nolook=true; 
state=starts; 
sp=255;3 
varindex,var = @; 


do while compiling; 
if state<=maxrno then /* read state */ 
do; 

call incsp; 
statestack(sp)=state; 
i=-getinl; 
call lookahead; 
jJz=itgetin2-1; 
do i=i to J;3 


if readl(i)=token then 7* save token */ 
do; /* copy accum to proper position */ 
var(sp)=varindex; 
do index = @ to accum; 
call setSvarcSi(accum( index) ); 
end; 


hash(sp) = hashcode; 
7& save relative table location */ 
state=read2( i); 
no look=true; 
i=Jj3 
end; 
else if i=y then 
do; 
call error(’np’);3 
if (state ‘= recover)=@0 then 
compiling = false; 
end ; 
end; 
end; 
else if state>maxpno then /* apply production state */ 
do; 
mp=sp~getin2; 
mpp l=mp+t1; 
production = state~maxpno; 
call synthesize; 
sp=mp; 
izgetinl; 
var index=var(sp) ; 
jzstatestack(sp) ; 
do while (k:=applyl(i)) <> @ and jy ‘> k; 
i=it+l; 
end; 
if (state: apply2(i))=0 then compiling = false; 
end; 
else if state<= maxlIno then /* lookahead state */ 
do; 
i=getinl; 
call lookahead; 
do while (k:=lookl(i)) <> @ and token <> &; 
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end; 
end; 
end; 


end; 
end; 
eof 


iz itl; 
end; 
state=look2(i); 
end; 
/* push state */ 
else do; 
call inesp; 
statestack(sp)= getin2; 
state=getinl; 
end; 
7* of while compiling */ 
/%*of while true */ 
S%of do forever*/ 


7% of block for parser */ 
/*of block for declarations*/ 
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199h: *load point for translator* 


ft U ~~ » see ses oi te ta abe ade ate ale als ate ataats ale ate nts als abs cients sis 6) 
ROE ARIK AORN ARANETA RR IRIE RI HORE RR RR SAB AT TTT / 
tants at D Sea, ta ale ata Sp aleaty a! 
Ds 
a 


on pie s ys . e m ai iter 
ale 


A MRR RMR MK ACK MEK IK NEI IE OR OK ME SH TNE OR RK SESS aS BIS IS OS OS SHS EE IS ES SO NS IE OK HS OR OOK OK OK I SK EK KK KZ 
AS RRR RNB HK RR EK HR RE IK OK OR TK OK AE UE RK TR RR A AE TS RIS OK OE HS OH OE BS AE RTS SR RR ROR OR RK IR OB IS HEIR BK RK SZ 
declare lit literally ’literally’ 
dcl lit ’declare’, 
proc lit "procedure’ ; 
bdos Mite OL /sXentry point to disk op. sys* 
boot lit °0’, /* exit to return to op. sys. */ 
true hit ° fo 
addr lit ’address’ 
false Tit 6’, 
bedSlen lit "se", 
intSlen ei tetee o, 
fileeof igte ol <, 
comrecs ize lit 123°, 
eoffiller lit Diane. 
pinrecsize lit °128’, 
forever lit ’while true’; 
dc l sbloc addr initial(89h), 
codestrt addr initial(@), 
varsirt addr initial(i¢40n), 
progSs ize addr initial(@), 
nextchar byte, 
codecount addr itial(®), 
varcount addr initial(9), 
genSbuff(80) byte, 
codesize addr initial(190h) ,/% adds bytes generated */ 
tempaddr addr, 
tempbyte byte, 
combuff(comrecs ize) byte, 
pinptr byte initial(pinrecsize), 
errcount addr initiai(9), 
pincode byte, 
pinbuff based sbloc (pinrecsize) byte, 
startbdos addr initial(6h), /*xptr to addr of bdos*/ 
base addr, 
max based startbdos addr, 
comptr byte initial(255), 
curpinrecsize byte initial(pinrecsize), 
rfcbaddr addr initial(Sch), 
loo p by te, 
wicb (33) byte initial(9,’ > ’com’,9,9,6,9), 
rfcb based rfcbaddr(33) byte, 
espe (66) byte, 
espaddr( 66) addr, 
spSmax addr, * stack pointer max %*/ 
no look byte; . 
del pass l addr initial( true), 
pass2 byte initial(false), 
nopinfile byte initial(false); 


J RRKBRRER BRK BK R KKK KKK SSK NOK IR IK KK KKK RK IRE ER HE EE EE AES HEE EOS KE NE OK RK IE EK AIK SZ 
SRR RRR RIBERA BRAKE ERR RRR ERR SOK EEN IK NER ER IR IR IK OK IK IER NEE HE IE BE AS I OR IR KK KE 
PRR eg lobatl proceed wee s KZ 
THRESH HA HARSHA HR HAAR BEB AREER AREER EEL ARATE TT A 
"OH RAH RR RRS ARASH SR ARR ARR REAR RA ETRE TER ER TER RE RE 


monl: proc(f,a)j; 
dc l f byte, 
a addr; 
go to bdos; 
end moni; 
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mon2: proc (f,a) byte; 
dcl f byte, a addr; 
zo to bdos; 

end mon2; 


deleteSfile: proc(a); 
dela addr; 
call monl(19,a); 


end deleteSfile; 


makeSfile: proc(a) byte; 
del a addr; 
return mon2(22,a); 
end makeSfile; 


setSdma: proc(a); 
del a addr; 
call monl1(26,a); 
end setSdma; 


wrtScomSrerd: proc(a) byte; 
del a addr; 
return mon2(21,a); 

end wrtScomSrerd; 


closeSfile: proc(a) byte; 
del a addr; 
return mon2(16,a); 
end closeSfile; 


openSfile: proc(a) byte; 
del a addr; 
return mon2(15,a);3 
end openSfile; 


readSfile: proc(a) byte; 
* dela addr; 
return mon2(29,a); 
end readSfile; 


deleteSpinSfile: proc; 
call deleteSfile(rfcbaddr) ; 
end deleteSpinSfile; 


move: proc (a,b,1);3 
del (a,b) addr, 
(s based a, d based b,1) byte; 
do while (1:=1 - 1) <> 255; 
d=s; 
b=b + 1; 
a=a + 1; 
end; 
end move; 


print: proc(a); 
del a addr; 
call monl(9,a);3 
end print; 


printchar: proc(msg) ; 
del msg byte; 
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C1, 


ma to Dd for 
29 bytes */ 


l bytes */ 





call monl(2,msg); 
end printchar; 


error: procferrcode) ; 

dcl errcode addr, 

i byte; 

errcount = errcount + 1; 

call print(. eo ee 

call print(.’ errorS’); 

call printchkar(’ °); 

call printchar(higshlerrcode)); 

call printchar( lowlerrcode)); 
end error; 


diskerr: proc; 
do; 
call print(€.’disk error 3’); 
goto boot; 
end; 
end diskerr; 


A RRM RR EK RR RB RR ER RK AEE RK HE KE OR OR EK EK ER SK shoe PRR ER KR HOB 2 eval: BSS ERIE HK HE EI HE RIK HZ 
S RRR BBR RK RAK RK RK KEKE BR KB HOR RR SE KK RIKER KK IRR OK KK RK RIK KORE OR ROK ERIS RIK RRR REZ 
SHE File maniopu . atingroutines KK KZ 
SREB ERE RHR BEA EERE RRA RRA ERR BR ERR RETR RE RRR TERN HR IE RRR RH 
SERRE EK RRR SKE ER KR RR KE ER IR IE TE I HE KOR TET ERM TE IR RI TI ROE 


x 
x x 
x 3 


setupScomSfile: proc; 
if nopinfile then /7* only make file if this toggle off */ 
re turn; 
call move(.rfcb,.wfcb,9); 
wicb(32) = @; 
call deleteSfile(€.wfcb); 
if makeSfile(€.wfcb) = 255 then 
call diskerr; 
end setupScomSfile; 


writeScomSfile: proc; 
if nopinfile then 
return; 
call setSdma(.combuff); 
if wrtScomoOrcrd(.wfcb) <> 9 then 
call diskerr; 
call setSdmal(sbloc); /* reset dma addr */ 
end writeScomSfile; 


emit: proclobjcode); 
del objcode byte; 
if Ccomptr := comptr+1) >= comrecsize then 
7k write to disk */ 


do; 
call writeScomSfile; 
comptr = 0; 
end; 


combuff(comptr) = objcode; 
end emit; 


generate: proclobjcode) ; 
dcl objcode byte; 
codesize = codesizetl; 
call emitlobjcode) ; 
end generate; 


genSfive: proc(a,b,c,d,e); 
del (a,b,c,d,e) byte; 
codesize = codesize + 5; 
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call emit(a); 

call emittb); 

call emit(c); 

call emit(d); 

call emit(e); 
end genOfive; 


gten: proc(a,b,c,d,e,f,¢,h,i,Jj); 
dcl (a,b,c,d,e,f,¢g,h,i,j) byte; 
codesize = codesize + 19; 
call emii(a); 
call emit(b); 
call emit(c); 
call emit(d); 
call emit(e); 
call emit(f); 
call emit(p); 
call emit(Ch); 
call emit(i); 
call emit( yj); 
end gten; 


closeScomSfile: proc; 
4/* closes a file */ 
if closeSfile(.wfcb) = 255 then 
call diskerr; 
end closeScomSfile; 


openSpinSfile: proc; 
call move(.’pin’ ,rfcbaddrt9,3) ; 
rfcb(32) = 6; 
if openSfile(rfcbaddr) = 255 then 
do; 
call print(.’no intermediate file found $’); 
go to boot; 
end; 
end openSpindSfile; 


rewindSpinSfile:proc; 4% cp7m does not require any action */ 
return; 7* prior to reopening */ 
end rewindSpinSfile; 


readSpinSfile:proc byte; 
dc l dent byte; 
if (dent:=readSfile(rfcbaddr)) > fileeof then 
call diskerr; 
return dent; 
end readSpinSfile; 


wetSGnextSbyte: proc byte; 
dcl addeof data(’l’); 
nextSpinSchar: proc byte; 
return pinbuff(pinptr) ; 
end nextSpinSchar; 


checkfile: proc byte; 
do forever; 
if (pinptr := pinptr + 1) >= curpinrecsize then 
do; 
pinptr = 9; 
if readSpinSfile = fileeof then 
return true; 


end; 
mextchar = nextSpinSchar; 
return false; 


end; 
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end checkfile; 


io pace or (nextchar = eoffiller) then 
0 5 
call move(.addeof, sbloc, 1); 
pinptr = 9; 
nextchar = nextSpinSchar 
end; 
return nextchar; 
end getSnextSbyte; 


© 
b 


getSnextSaddr: proc addr; 
del (Clowa,higha,tadd) addr; 
lowa = double(getSnextSbyte) ; 
higha = double(getSnextSbyte); 
tadd = shi €higha,8); 
tadd = tadd + lowa; 
return tadd; 

end getOnextSaddr; 


A TERR RRR KR RK RK RKO OK ORR KK EE EK ER NER SK TR OR OK RRR EK OS OK OK OE EK SE ES NE OK KT EK OK OR EK OK KK Z/ 
SP RRREER RRR RRR II HI IE TE I I HE IE TEI TE ON NEN MR BE BE I III 7 
PRR f@enera il p Ss KS 
J PRR RR EK ORK RIK FE TE OK OK OK EK OK OK RK KR ROKK ORK OK : so SS IE OS EOE I KZ 
SP RRR RRR RR RRR ERR TE NOR AK SR SN II OIE NE II BEE OIE EE / 


A RRR RR BK KK RK ROK NE ER TK GS OR ORR ROK OB ER OK OR KK BOK KK KK 
7% popSsvoaddr removes the first two bytes */ 


/* from the stack and saves them in the */ 
* address indicated as a parameter. */ 
/* total number of bytes generated = 7 */ 


SJ RIS RKK KKK KRRKR KK RK RR KKK KKK KKK KR ATRRKRRKKRKK KKH 
popSsvSaddr: proc(a); 
dcl a addr; 


call generate(2ih); 7X [xi */ 

call generate( low(a)); 7% storage place */ 
call generate(high(a)); 

call generate(OQOcih); 7% pop b */ 

call generate(7I1h); fk movm c */ 

call generate(23h) ; 7* inx h *7 

call generate(79h) ; /* movm b */ 


end popSsvSaddr; 


AS RRR ERR REE RRR RRM KERR KKK RK KK EK ER IK AR I KZ 
/% pushSsvCaddr returns the address from */ 
7* the specified address to the stack. */ 
/*% total number of bytes generated = 7 *K/ 
S RIOR IRR RRR RIK RRR RR ER IR IK ERR ER BK IR BK IR AE EE IEE Z 
pushSsvGaddr: proc(a); 

dcl a addr; 


call generate(2ih); SR Vxi *7 

call generate(lowla)); /% retrieving addr */ 
call generate(high(a)); 

call generate(‘4eh) ; /* move m */7 

call generate(23h) ; 4* inx h *7 

call generate(46h) ; /* movb m */ 

call generate(Gc5Sh) ; /* push b */ 


end pushSsvoaddr; 


SRR HIS MR RRR ARR RAR RIK R SEERA SEB RAEI RR RER RRER 


* popSint removes the first two bytes */ 
7% from the stack and saves them in the K/ 
*% address indicated as a parameter. */ 
7 total number of bytes generated = 7@ *K/ 


SRR RR HII RRR ASR RAR AAR ARRAN RRR BRE RR ERE BRIERE 


popSint: proc(a); 
dcl a addr; 
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call wenerate(21h); 7* lxi h */ 
eall generate(lowla)); 7%* addr of int x 
eall generate(Chigh(a)); 


eall generate(Ocih) ; 7*® pop b */ 
call gwerverate(7Ih); f% movm c %*/ 
eall generate( 23h); 7% inx h */ 
eall senerate(7Oh) ; 7% movm b */ 


end vopSint; 


Peat pateaigals alsa! U 4, « 8, », 2 . U J i) . 2 8 UJ Uv , 5, a s 
A TRIER RR TR RE KR KR IH SAS HS HS IS SS 8 RK OK OK TK OR IEE OK RK KZ 


fx  pushoint returns the intege: 


¢ from %*/ 
f%*% the specified address to the stack. KS 
7/*& total number of bytes generated = 7 */ 


A MRE R BRAG AS NG RE SS BR OR OK OR SR SK ENE GS HS OR TS NEE OK Yk OS NE ORK KOK KOR EK Z 
pushSint: proc(a); 
del a addr; 
call generate(2th) ; 7* lzxi h */ 
call generaie(lowla)); 7/7 addr of int */ 
call generate(Chigh(la)); 


call generate(4eh) ; 7% move m */ 
call generate(2dh) ; 7% inx hh x*/ 
eall generate(45h) ; 7X movb m */ 
eceall generate(Oc5bh} ; 7% push b */ 


end pushSint; 


A PRR RIK ERIK IR KK SE OS EK KS SK OK OE OK SR TIS RK OK NER ON AS OK OER KOR OR EK 
*% ponSbed removes the last & bytes from the */ 
/% stach and places them in the working area */ 
* gtarting at address a which is passed as */ 
/* a parameter by the user. 3% / 
/* total number of bytes generated = 23 * 
A BRR BR HR RAE RK RNS NS IK NS OSS SSS OR KS NEON IE OK OS KK ROK OK KOR KZ 
popobed: proc(la); 
del i byte, a addr; 
eall generatielZlh); 7% lxi h */ 
call generate( lowla)); 7% addr of bed * 
call generateChigh(a)); 


do i=1 to 4; 


eall generate($%c lh); 7* pop b XZ 
call generate(7 lh) * movmc */ 


call generate(23h) ; “7* inxs h */ 

call generate( 79h) ; 7% movn b */ 

call generate(2Sh) ; 7* inx h */ 
end; 


end popSbed; 


SHREK RIKER RIK RINK SNS SEAN SHEN. 
7% pushSbed places the SG bytes of a bed num */ 
/* ber, whose last array address a is passed */ 

* aS @ parameter by the user, into the stack*/ 
7* total number of bytes generated = 23 x / 

A PRR RK RRR RK KR RK NSE KORE OK ORK OR AE ORS TR KR OR ROK OK KOK RK KEK KZ 

pushSbed: proc (a); 

del i byte, a addr; 


call generate(2lh) ; “7k lzxi h */ 
call gpenerate(lowla)); 7% addr of bed */7 


call generate(Chigh(a)); 

do i=l to 4; 
call generate(46h) ; 7* movb m */ 
call generate(2bh) 7% dex h %/ 
call generate(4eh) 7X move m */ 
call generate(2bh); 7% dex h */ 
call generate(9cSn)3; 7% push b */ 

end; 

end pushSbecd; 


oe we =e 


SR RK RK RR KB HK KK RK KK KK EK HE OK OR EK OR RK OK KK KK EK KKK Z 
* complSbed complements a bed number located */ 





1x 
ats 
Cd td 
fis 


ale 
“a 


at the working area in location of x, the */ 
address a passed as a parameter is the ad- */ 
dress of the first byte of the number array*/ 


total 


number of bytes geuerated = 43 “7 


A PRI RE RK ME OK OK TRE OK KR RS AS OK KK OK BS HE OR KE OK TS KOK KR OK OK OE EK EB KK / 
complSbed: proc(a); 


del i byte, a addr; 
call generate(214); 7X \lxi h */ 
call generate(lowla)); /%® addr of bed */ 
call generateChigh(a)); 
call generate(Sah) ; Sk ldi */7 
call generate(2&9bh) ; 7% 190996903 x/ 
call generate( 86h) ; 7* add m */ 
call generate(77h) ; /k& movm a */ 
call generate(23h) ; yee ings hh ks 
do i=l to 7; 
call generate(3ah); /& lda */ 
call generate(99h) ; 7% 99 x 
call generate(%Oh) ; * sub m */ 
call generate (77h) ; /%*% movm a */ 
call generate(23h) ; 7* inx h */ 
end; 


end comp|1Sbcd; 


A FRR KK RK KKK OK OK KR EK OK ROK SIS OK OK OK OR OK IS OK ORK TIS KE RS NS OR OR KK OK EZ 
multSint pops two integer numbers from the */ 
stack and multiplies them together . then */ 
pushes the resulting integer back in the stack */ 


7% 
os 
as 
7X 


total 


= 


number of bytes generated = 49 */ 


A RR RK RK ERK RE KK OE OK OK GK IR OK GO SEE TE OK ORK BOK RA KK EE EK KK / 


multSint: 


proc(a) ; 


dcl a addr; 


call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
eall 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 


gmenerate(Odih) 
generate(Oc ib) 7% pop b */ 
wenerate(Ccdh) /* jmp */ 
gpenerate(lowla + 2¢h)); 


7k pop d */ 


oe we we 


gsenerate(hignla + 2¢h)); 
generate(79h) ; “7k mova c * 
gsenerate(93h) ; 7k sub e */7 
generate(7S8h) ; /kmova b xX/ 
generate(9ah) ; 7% sbb d x*/ 
generate(9OfZh) ; 7% Jp */ 
gwenerate(lowla + ILILh)); 


menerateChigh(a + IL1lh)); 


generate(60h) ; 7% movh b */ 
generate(69h) ; Y* movl c */ 
Senerate(Gebh) ; /* xche */ 
generate(4¢4h) ; 7* movb h x*/ 
gwenerate(4dh) ; /% move | */ 
vwenerate(2lh); /* lxi h */ 
generate(9Oh) ; 


generate(OO9h) ; 


generate(Vebh) ; /%& xche */7 
generate(7Eh); /* mova b */ 
wenerate(Oblh) ; /*X ora c */ 
gwenerate(9c8h) ; SK eZ KS 
gsenerate(G9ebh) ; /* xchge */ 
gmenerate(7Sh) ; /*® mova b */7 
xrenerate(ifh); /*® rar */ 
generate(47h) ; /* movb a */ 
msenerate(7Sn) ; 7k mova c %*/ 
wenerate(lfh); fk par */ 
generate(4fn) ; /* move a */ 
generate(9c2h) ; /* Jne */ 
senerate(i9h) ; /*X dad d */ 
generate(debn) ; fk xcehe */ 
gsenerate(29h) ; /* dad h */ 
generate(dc3h) ; SK ymp */ 
seneraie(OfS8h) ; 7*® call */ 
menerate(lowla + 5)); 


generate(high(a + 35)); 
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call generate(OdS$b) ; 7% push d */ 
end muliSint; 


. », J &, U ’ a J 5, », %, 8 , 8, J B, a > 5 U . s 8, U U », » 4 8, 2, » », UJ 4 . ». » 
A PRR RES RAE ER RS RE RE ORE AS I OK OS SE NK RS TS AE AS ASS AS OK OK TR A EK 2S SS SZ 
® 


* divSint pops two integer numbers from */ 
/* the stack, divides the second number */ 


/% rewoved by the first number rewoved K/ 

~ and returns the result to the stack KS 
7* total number of bytes generated = S54 */ 
A PRO E RR R R KRR RE S RE K R S OK K OK RIE KOK OR IE KR KOR RNS IR EK EZ 


divSint: proc(la); 
dcl a addr; 
call gten(6d 14, Oc lh, Oc3h, lowlatS9) ,high(€atS0O) , tah,2fh,57h, 7bh, 2fh) ; 
call gten(Sfh, 13h,231h, 00h, 60h, 3eh, L[1h,9eSh, 19h, Gd2h) ;X 
cali generate(* lowla + 23)); 
call generate( highla + 23)); 
call sten(Cedh, Ge lh, OfSh, 79h, 17h, 4fh, 78h, 17h, 47h, @dh) ; 
call stent 17b,G6fh, 7ch, 17h, $70, Oi lh, ddh, OcSn, iowlati?) ,highla+17)); 
call gten(9b7?h, 7ch, lfh,s?h, ¢da, ifh, ofh, Oc9h, Ocdn, lowlatd)); 
call generate( highla + 3)); 
call generate(G%coun) ; 
end divodint; 


J ORR RK RR RK BRK RE OK EK IE RK KS ON 28 OK OR IK OR OK OK IK RE OK AR RIK KB RR KZ 


4% 1tSint compares the next two integers in */ 
* the stack and returns a 1 to the stack */ 
* if the comparison is true or a 0 if the SL 

7% comparison is faise. 7 

7* total number of bytes generated = 23 k/ 


SP RRM BK KR KK RK KR KE BB OR BK ORK KK AS OK OR KKB EK OR OK OK NEE RE AS OK KE RK / 
ltSint: proc(la); 
dcl a addr; 


call generate(Od lh); 7% pop d */ 

call generate(%c th); Z*& pop b */ 

call generate(79h) ; * mova c %*/ 
call generate(934) ; 4% sub e */ 

call generate(4fi) ; 73% move a */ 
call generate(?7&nh) ; * mova b */ 
call generate(9ah) ; /% sbb d */ 

call generate(9d2b) ; 7* Jnc */ 


call generate(Clowla + 18));3 
call generate(Chighla + 18)) 


we 


call generate(Qeh) ; 4% mvi c */ 

call generate(9Olh) ; 

call generate(96h) ; /* mvi b */ 

call generate(9O@h) ; 

call generate(Gc3h) ; /*& push b */ 
call generate(Gc3h) ; 7*& jmp */ 


call generate(lowla + 23)); 
call generate(Chigh(a + 23)) 
call generate(@Geh) ; /® mvi cc *Z 
call generate(OQh) ; 

call generate(96h) ; 
call generate(OQh) ; 
call generate(9cSh) ; /* push b */ 

end l1tSint; 


we 


/® mvi b */ 


7* leSint compares the next two integers in */ 
* the stack and returns a I to the stack 7 
* if the comparison is true or a 0 if the */ 

/7%* comparison is false. *xS 

7* total number of bytes generated = 23 */ 


A RK KKK RAK KK KRM KR KK KK ASK KK RR BR RR HK KR KKK KR KK 
leSint: proc(la); 
dcl a addr; 


call generate(Qc th) ; 7% pop b */ 
call generate(0Od lh) ; 7X pop d */ 
call generate(79h) ; /% mova c */ 
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call generaie(93h) ; 7% sub e */ 


call EN ane /* move a */ 
call generate(7Sh); /% mova b x7 
call Pee Ce Oah) ; 7k sbb d */ 
call generate(Qdah) ; SE Jo */ 


call generate(lowla + 18)); 
call generateChignla + 18)); 


call wonerate(9eh); “ mvi ¢ */ 
call generate(@9Ith) ; 

call sgenerate(9d6h) ; 7% mvi b */ 
call generate(¥Qh) ; 

enll gensrate(9cSh); 7% puso b */ 
cali generaitelScuh) ; fx jmp */ 


call senerateClowla + 23)); 
call phe ee Ce + 23)); 


call generate(Oeh) ; /% mvi c */ 
call Benen tees) ; 

call senerate(Odh) ; fx omvi b x 
cail generate(O0h); 

call generate( cS) ; 7* push b */ 


end leSini: 


A TRER MIRROR OR OK SRO OK EK HE BK EO RE OE ORS ES OK OR SS OK OK NS TS OR OK OK OE OR OE OR AK OR OI 


* stOint compares the next two integers in */ 
*% the stack and returns a l to the stack */ 
* if the comparison is true or a 9 if the */ 
/*% comparison is false. 7 
7* total number of bytes generated = 23 *K/ 


A PRR IRR RIE OK EK OR RR OR MEK KK ES TiS KK OR OK ROR EK OR KR OK RK OK RTE RR NOR Z 
etSint: proc(la); 


dcl a addr; 

call generate(Sclh); /*% pop b */ 
call generate(Odlh) ; /*% pop d */Z 
call =f ech SAY 7x mova c */ 
call gensrate(93bh) ; 7% sub e *% 
call eens caaeu) . * move a */ 
call generate(7S8h) ; /* mova b %/ 
call generate(9ah) ; 7% sbhb d */ 
call Fonerate(OdSh) ; * jne %/ 


call generate(lowla + 18)); 
call generate(Chighla + 18)); 


call generate(@Geh) ; fk mvi c */ 
call gwenerate(Olh); 
call generate(O6h) ; /* mvi b */ 


call generate(9Qh) ; 

call generate(GcSh) ; 7* push b */ 
call generate(@c3h) ; /& Jmp */ 
call generate(lowla + 23)); 

call generateChighl(a + 23)); 


call generate(Geh) ; fk mvi c */ 
call generate(990h) ; 
call generate(0O6h) ; /*% mvi b */ 
call generate(OOh) ; 
call generate(9cSdh) ; 7% push b X*/ 


end gtSint; 


A BRM RK SAE AK EK AE ROK KO HE IK RK RE RS OE OK OK RE RK OR RK RK KZ 


*% geSint compares the next two integers in */ 
/*% the stack and returns a 1 to the stack %/ 
/* if the comparison is true or a 9 if the KS 

* comparison is false. */ 
/* total number of bytes generated = 23 KS 


A RRB BR BRA RRR RK RR KK RK KK ERE OK KK EK RK RON KE RE KKK / 
gweSint: procla); 
del a addr; 


call generate(9dih) 7% pop d */ 


call generate(6c lh); 7X pop b */ 
call generaie(79h) ; /& mova c */ 
call generate( 93h) 7%*& sub e */ 


call generate(4frh) ; /* move a */ 
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call generate(7&h) ; A 


call generate(9ah) ; A% 


mova b x*/ 
sbb d */ 


call generate(%Odah) ; SE Jo */ 


call generate(lowla + 18)); 
call generate(high(a + 18)) 


call generate(0eh) ; * 
call generate(Olh); 
call generate(Gdan) ; Vie 
call generate(OOh) ; 
call generate(9cSh) ; 7% 
call generate(Ocdh) ; 7% 


call generate(lowla + 23)); 


call generate(high(a + 23)); 


call generate(Geb); 7% 
call generate(Q0Oh) ; 
call generate(O06h) ; 7% 
call generate(9Oh) ; 
call generate({%cSn) ; A 


end geSint; 


A MER RRA RR KK RR KK EK OK BR OK OK OR OK EK OR RK OR ROK RRR KK RRR RE Z 


ale 


1% 


eqSint compares the next two 
the stach and returns a 1 to 
if the comparison is true or 
comparison is false. 


integers in 
the stack 
a © if the 


total number of bytes generated = 24 
A RRR RRB KK RK OK BRK RK RK OK OK RRR KR TK KOK EB OE RR RK OK RK KK RK / 


eqSint: proc(a); 


del a addr; 


call generate(9Odih); 1% 
call generate(6c ih) ; aes 
call generate(79h); 1% 
call generate(93h) ; ae 


call generate(4frh); 7% 


call generaite(7&h); Vx 
call generate(9%ah); AK 
call generate(QObIlbh) ; 7% 
call generate(@c2Zh) ; 7x 


call generate(lowla + 19)); 


call generate(highla + 19)}); 


call generate( eh) ; 7% 
call generate(Olh); 
call generate(96h) ; Pe 
call generate(6Qh) ; 
call generate(9cdSh) ; 1% 
call generate(Qc3h) ; /* 


call generate(lowla + 24)); 
call generate(high(a + 24)) 


call generate(QOehb) ; 7x 
call generate(O@h) ; 
call generate(96h); 7% 
call generate(@9h); 
call generate(9cSh) ; SK 


end eqSint; 


we 


pop d */ 

pop b */ 

mova c */ 
sub e */ 

move a */ 
mova b x*/ 
sbb d */ 

ora c */ 

Jnz */ 


mvic */7 
mvi b */ 
push b */ 
Jmp */ 

mvic */ 
mvi b */ 


push b */ 


7, 
/ 
*/ 
*/ 
£7 


S RRA RRA RRR ARERR RARER AR RIERA ER HAE NER ER 


is 
1% 
aS 

* 


7% 


neSint compares the next two 
the stack and returns a 1! to 
if the comparison is true or 
comparison is false. 


integers in 
the stack 
a 9 if the 


total number of bytes generated = 24 
A RRR RMR BKK BB RK A OK SS RK OR OK OK OK ORK KK OK OK EK OK OK KK KR MOK R RK RK 
neSint: proc(a); 


del a addr; 


call generate(@dlh) ; 7% 
call generate(Qc th); 1% 
call generate(79h); Vee 
call generate(93h); 7 
call generate(4frh); eS 


call generate(7?8h); SH 
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pop d */ 
pop b */ 
mova c */ 
sub e */ 
move a */ 
mova b */ 


*/ 
*/ 
RS 
*/ 
SZ 





call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 


generate(9ah) ; 7%*% sSsbb d */ 
senerate(Oblh) ; * ora c */ 
gzenerate(O9c2h) ; 7 Juz *7 

generate(lowla + 19)); 
generate(Chighla + 19)) 


we 


generate(Oen) ; /*& mviec * 
generate(Oih) ; 

generate(O6h) ; /*%& mvi b x/ 
gsenerate(GOh) ; 

generate(GcSh) ; 7% push b */ 
generate(QcSh) ; 7% Jmp */ 


gsenerate(lowla + 24)); 
generate(nigh(a + 24)) 


generate(Seh); /* mviic */ 
senerate(OOhb) ; 

menerate(OG6h) ; 7*® mvi b *7 
generate(90n) ; 

senerate(OcSh) ; 7% push b */ 


end neSint; 


A RRR RK RK BK KR REKR R K EK RE KK OR KK OK OR KK OK BOK KKK RK KKK / 
7* notSbool negates a ’9’ to a ’l1’ and a 


* °1’ to a °G%’ taking the last byte of the 


7*® stack 
7% stack. 


KZ 


ale 
qn 


and returning its complement to thex/ 


total number of bytes = 19 


*/ 


J RRR RR KE EK ROK OK RK SRK OK OK AE EE ROR OK KK OR RK KR OR RE EK Z 


notSbool: 


proc(a); 


dcl a addr; 


call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
ea ll 


generate(Oc lh); 7* pop b */ 
gmenerate(79h) ; /*% mova ec */ 
gpenerate(Ofh) ; Sk pre */ 
generate(Od2i) ; “*& jJuc */ 


generate(lowla + 14)); 
senerate(highla + 14)); 


generate(OQeh); /% mvi c *7 
gsenerate( 90h) ; 

senerate(OGh) ; 7k mvi b *7 
senerate(9OQh) ; 

fenerate(GcSh) ; 7% push b */ 
generate (Och) ; 7* jmp */ 


senerate(lowla + 19)); 

gwenerate(high(a + 19)); 

generate (Geh) ; 7k mvic *7 
generate( OG) 
fenerate( 06h) 
generate(09h) 
generate(9c5Snh) ; 7% push b */ 


7* mvi b */Z 


we we ~2e hd 


end notSbool; 


A RR RRR KKK NE KE OK IR RK AK KK RK KE KE KKK RK MS ERK Z 


7* andSbool pops the last two integers from 
7% the stack calculates their logical 
/7* and returns the new value to the 


7* total 


number of bytes generated = 26 


"and’ 
stack. 


7 
*7 
7 
7 


A RR RR RK KKK EK KR RK KR RK RK KR KOK KOK KKK KKK ROKR KK KKK HR KZ 


andSbool: 


proc(la); 


del a addr; 

call generate(Qdl1h) ; 7% pop d x/ 
call generate(Q@c 1h) ; 7*® pop b */Z 
call generate(7$h) ; /k mova c */ 
call generate(@Ga3h) ; /* ana e */ 
call generate(4fh); /%*® move a */ 
call generate(7&bk) ; /* mova b */ 
call generate(9atih); 7k ana c */ 
call generate(47n) ; 7k movb a */ 
call generate( 79h) ; 7* mova c */ 
call generate(9fh) ; 7k rre */ 
call generate(9d2h) ; 7k June *7 
call generate(lowla + 21)); 


call 


generateChigh(a + 21)); 
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call generate(Qeh) * mvi c */ 
call generate(Oih) 
call generate( 96h) 
call generate(9Gh); 

call generate(9c3SBk) ; 7% push b */ 
call generate(9cS3h) ; 7 Jmp */ 
call generateClowla + 26)); 

call generateChigh(a + 26)); 


@2eé we we 


*% mvi b %*7Z 


c2ll generate(Qeh) ; f%®% mvic %*7 
call generate( 99h) ; 
call generate(9Gh) ; /*® mvi b *Z7 
call generate(9Q0n); 
call generate(Ocdsh) ; 7% push b */ 


end andSbool; 


A RUBE RKRRRK R MEEK OK KORE OK OK KOK OK OK HK KR KK NE SOK ROK OR KR KR KS 

7% orSbool pons the last two integers from */ 
7% the stack calculates their logical ’or’ */ 
/* and returns the new value to the stack. */ 
7* total number of bytes generated = 26 *7 


A RR RR BK KKK RK IS HR KK RK KR KOR KR KKK KK ROR OR OR KE KOK RK KR ER KZ 
orSvool: procla); 


dcl a addr; 

call generate(Odlh); 7% pop d */ 
call generate(Gclh); 7&¥ pop b */Z 
call generate(79h); — /%® mova c */4 
call generate(Qb3h); /% ora e *7 
call generate(4fn); /*% move a */Z 
call generate(7&h) ;s /* mova b */4 
call generate(Ob2h) ; Sk® ora d */ 
call generate(47h) ; 7% movb a */7 
call generate(79h) ; 7% mova c */ 
call generate(Ofh) ; f* pvre *7 
call gwenerate(Gd2h) ; 7k Jue *7Z 


call generate(Clowla + 21)); 
call generate(Chighl(a + 21)); 


call generate(Oen); f/%*% mvi c *7 
call generate(Oih); 
call generate( 96h) ; 7k mvi b */ 
call generate(@Gh) ; 


call generate(9cSh) ; 7/* push b */7 
call generate(Qc3h) ; 7k Jmp *7% 
call generate(Clowla + 26)); 
call generate(Chighla + 26)); 
call generate(Geh) ; S% mvi c */ 
call generate(G@0h) ; 
call generate(O6h) ; 
call generate(9Qh) ; 
call generate(9c5Sh) ; 7k push b */ 
end orSbool; 


7* mvi b *7 


A RRR RRR RK KR ROKR KOR KR KK KK KKK KK KKK AK RKK KR RK KKK KEK 7 
/* svSstack increses the size of the stack */ 
7% by moving the stack pointer (b) times */ 
7% total number of bytes generated = b */ 
OTR RRR RK RR KR KK OK EK ORK OK OK OK KOK AE OK OK KK RK KR KK RK RK Z 
svSstack: proc(b); 

del (€i,b) byte; 

do i=1 to b; 

call gwenerate(3bh) ; 7k dex sp */ 

end; 
end svSstack; 


A RRR RRR KK RK RK KK RK A KK EK KR RK KR KKK RK RR ASK OR ROKK 7 
7* unsvSstack decreases size of the stack */ 
/* by moving the stack pointer (b) times */ 
7* total number of bytes generated = b *S 
A PRK RR RR KOR OK RK OK OK KK ROKK OK ORK ORK KK KOK KK KR KK RS KOK RK RR KOK 7 
unsvSstack: proc(b); 
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del (€i,b) byte; 
ao i=-1 to b; 
call generate(S3h) ; /* inx sp */ 
end; 
end unsvOstack; 


A ROKR KE KR IKK KK OR KR OK KOK OK TK OE BE 9 HE HS IR OR OR SK 3S OE IK OK OK OR KK OR KR RK ZH 
/%* stoSbed stores eight bytes from tne KS 
/* stack into an address calcnlated from */ 
fe the first two bytes taken from the stack */ 
7* total number of bytes generated = 21 */ 

A PRR GSR RRR NS GS NS IS TS ESS OS OS SEE OR SF SiS BS SO IS SiS SK NG IS EE ONE SIS OK RS ZH 
stoSbed: proc; 

del i byte; 


call generate(9elh) ; /*® pop h */ 

do i=1 to 4; 

call generate(Octh); 7% pov b */ 

call generate(?lh); 7X moyvm c */ 
call generate(23h); 4% inx h */ 

call generate(7QO9hb) ; /% movwm b */ 
call generate(Z3h) ; /3 inx h */ 

end; 


end stoSbed; 


J TRI RR RMR KK RIK RK KR RK KR RK OK OR OK OK IKE IKK EE OK OK OK / 
/% lodSbed removes the first two bytes from*/ 
/#* the stack , calcuiates the address of */ 
/# the bed number and moves 8 bytes into / 
/* the stack. total bytes generated = 21 */ 
S MRR RK RR KR I RTE OR IK OK KOR KK BS KK OK OR OR KS ROKK OK ROKK RR KKK KZ 
lodSbed: proc; 
dcl i byte; 
call generate(Oelh); 7* pop h */ 
do i=l to 4; 
call generate(46h) ; /% movbm */ 
call generate(2bh); 4k dex h */ 
cail generate(4eh); 7k move m */ 
call generate(2bh); /% dex h */ 
call generate(@GcSh); /* push b */ 
end; 
end lodSbed; 


S RRR RR KK RK KK RR KR ER RK BRR RRR EK RKB AS RRR RB RE SZ 


/* printSint prints to the console the */ 
/% integer specified by the calling routine */ 
/* total bytes generated = 579 */ 


SRK RMR RRR BRS OR KK EK RR NS OR I NE OK KOK ISK ORK KOK KOK RK OR OR KOK EK 
printSint: proc(a); 
dcl a addr; 
call genSfive(O0c3h, lowlat3dh) ,high(at3dh) ,21h,90fh) ; 
call genSfive( Oth, 71h, 2ch, 73h, 23h) ; 
eall gten( 72h, Och, 05h, 96h, Oc9h, 21h, 12h,01h,71h, Qeh) ; 
call gien( 62h, 5eh, 16h, 66h, Gcdh, lowlat+Sh) ,high(at+3h) ,21h,3fh,91h) ; 
call gten(34h, 3eh, 4fh, 96h, 9d2h, lowlat+3ch) ,high(at+3ch) , 9eh, 62h, leh) ; 
call gten(Odh, 16h, 90h, Ocdh, low(latO3h) ,high(at+Och) , Ceh, 62h, leh, Gah) ; 
call gten( 16h, 09h, Scdh, lowlatO3h) ,high(a+O6Sh) ,21h,3fh, Olh, 36h, 90h) ; 
call geten(6c9h, 21h, eh, O9lh, 36h, 60h, 3Jeh, Of fh, 96h, 7fh) ; 
call gten(2eh, Seeh, 96h, 2ch, 4fh, 78h, %eh, O0d2h, lowlat+66h) ,high(at+66h)); 
call gten(Geh, 2dh, Ocdh, lowlatOfh) ,high(atOfh) , Oafh, 21h, 98h, Olh, 96h) ; 
call gten(2ch,4fh, 3eh, 6Gh, 9eh, 2dh, 71h, 23h, 77h, Oc3h) ;syX 
call genSfivellowlatobh) ,high(at6bh) ,9eh, 20h, Ocdh) ; 
call genSfive(low(latrOfh) ,high(atOfh) ,1lih, 10h, 27h); 
call gten(21h, 68b,61h, teh, 2ch, 46h, Oc3h, lowlat+9a¢h) ,highlatGath) ,7ah); 
call gten(2fh,57h, 7bh, 2th, Sth, 13h,21h, 09h, 90h, 3eh) ; 
call genSfive(1llh, Sedh, 19h, Gd2h, lowlat+89h)); 
call genSfive(Chigh(atS9h) ,G@e3h, Ge lh, OfSh, 79h) ; 
call gten(17h,4fh, 78h, 17h,47h, 7dh, 17h, 6fh, @ch, 17h) ; 
eall eten( 67h, Of 1h, 3dh, 9c2h, lowlat+&3h) ,high(at+&Sh) , Ob7h, 7ch, 1fh,57h) ; 
call gten(7dn, lin, Sfh, 9c9h, Ocdh, lowlat??h) ,high(at+?7h) ,Oafn, 91h, Sfh) ; 
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call gten(Seh, 00h, 95h, 9d2h, lowlat10fh) ,high(atl9fh) , 21h, 0eh, Oth, 36h) ; 
call gten(Olh,ilh, i@h, 27h, 2in, 06h, O@lh,¢4eh,2ch, 46h) ; 
call gten(€0cdh, lowlat??h) ,high(at??7h) , 21h, 0ah, 01h, 71h, Llh, 10h, 27h) ; 
call gten(2in, Gah, 61h, 4eh, 96h, 604, Gc3h, lowlatOf[4h) ,high(atOf4h) , 79h) ; 
call gten(9Sh, 73h, 9ah,Of2h, lowlatOddh) ,high(at+Oddh) , 60h, 69h, Gebh, 44h) ; 
call gienlédh, 21h, 00h, 00h, Seba, 73h, 9b lh, Oc Bh, Oebh, 78h) ;xyX 
enii sten( liige74, 7oR, ifh,4fn, 0d2h, lowlat@efh) , hizhGad@e fh) , 19h, Gebh) ; 


ca. | > Hel ie (0n, Jean, lowlasbe th) men Care ih) » Ocdh) ; 

call Bonet ive icm( ated 1h) , hieh(at0d 1h) ,21hs68h, 61h) ; 

cali gten(?eh, 2ch, 45h, 93h, 4fh, 78h, %ah, 2dh, 71h, 23h) ; 

call g¢ten (77h, 2eh, Odkh, feh, 9cSh, O0h, 77h, 4eh, Gcdn, lowlatOfh)); 

eall geten(Chigzh(a: "Ofh), ilh, CeSn, 03h, 21h, 06h, 01h, deh, 2ch, Ocdh) ; 

all gtenlUcan, lowtat?T7h) ,highlCat?77h) ,Gafh,91h,Sfh, 3eh, 09h, 98h, O0d2h) ;: 


Cc 
call Le en ae: high(at166h) ,2th, Veh, 91h, 36h, Oth, 11h, 9e8h, O3h) ; 
call gten(2ih,os 4, 1h; deh, 2ch, 46h, Ocdu, lowlat??h) ,high(at?7h) , 21h); 
call eten(9dh, 91b.7 1h, Lih, 9e8h, 03h, 21h, Odh, Olh, 64h) ; 
call eten( Soh, Soh, Scdh, oeen odin) Hen atOd 111) . zih, 08h, Olh,?eh,2ch) ; 
call gien(4$h, 93h, 4fh, 75h, 9ah, 2dh, 71h, 23h, 77h, 2eh): 
calt sten(Odh, 7eh, 96h, SCh, 77h, ¢eh, Ocdh, Pome): hich(at+Ofh) ,Oc3h) ; 
call sexndiive( lowlat+15dh) ,hirhlatlé6dh) ,21h,@eh, tie 
call senSfive(7eh, fh, 9a2h, ae Gd, eta tod)! ; 
call eten(Geh, 30h, Ocdh, lowlatOfh), Arau( Ree leh, 64h, 16h, 00h, 21h) ; 
call eden eich. fen. 46, Cedh, lowlat77h) , hich(at+77h) ,@afh,9 1h); 
call gten(5fh, Seh, 06h, 96h, Od2h, lowlaticlh) ,highlCaticlh) ,21lh, eh, 61h); 
call gten( 36h, Olh, leh, 64h, 16h, 99h, 21h, 98h, 61h,4eh) ; 
call gtenl2ch, 46h, S9cdh, lowlat?7h) , high(at?¢?h) , 21h, @dh, 01h, 71h, leh); 
call gten(6¢h, 16h,¢0h,21h,0dh, $th,4eh, 6h, 60h, Ccdh) ; 
call Bice Howl at 8d The high(atOd lh) ,21h,9&h, Olh, Teh, 2ch, 46h,93h,4fh) ; 
call gten(7S5h, %ah, 2dh, 7 ih. 29h, 7??¢h, Seh,Odh, veh, Oc6h) ;s 
call gendfive(S0h, 77h, 4eh, Gcdh, lowlatOfh)) ; 
call genSfiveChigh(atOfh) ,Oc3h, low aticeh) ,highlaticeh) ,21h) ; 
call gten(9eh, Olh, Veh, Gf, 9d2h, lowlaticeh) , Micha icon). Doi 30h, Ocdh) ; 
call Pe ian (or ie n04t@ la) leha@ah, 16h, 9@h)21h, 68h, 01h, 4eh) ; 
call eten(2ch, 46h, Ocdh, lowlat+??h) ,high(at??h) , 9afh, 91h,5Sfh, 3eh, 90h) ; 
call eten( 98h, 0d2h, lowlat21dh) , high(a+21dh) , leh, Sah, 16h, 00h, 21h, 68h) ; 
call gwten(Olh,¢eh, 2ch, 46h, Ocdh, lowlat?7h) ,high(at?77h) , 21h, O0dh, @lh) ;y 
call eten(71h, leh, 0ah, 16h, 00h, 21h, Odh, 01h, 4eh, 06h) ;x 
call gten( 09h, Ccdh, lowlatOdih) ,high(atOd ih) ,21h, 08h, O1h, 7eh, 2ch, 46h) ;yx 
call eten(93h, 4fh, 73h, 9ah, 2dh, 71h, 23h, 77h, 2eh, Odh) ; 
call eten( Veh, 0c6h, S9h, 77h, “eh, Gcedh, lowlatOfh) ,high(atOfh) , Oc3h, GOh) ;x 
call eten( 90h, 21h, Odeh, 91h, Zeh, Ofh, 0d2h, low( a+22ah) ,high(at22ah) ,Oeh); 
call gten(30h, @cdh, lowlat@O@fh) ,high(at+@fh) ,O1lh, 39h, 00h, 2ah, 08h, Ol1h) ; 
call sten( 09h, Gebh, 21h, 9ah, Olh, 73h, 4eh, Ocdh, lowlatOfh) ,high(atOfh)) ; 


end printSint; 


A RRR KR RK BR RK KK OK KR KEK OK IK OK EK KK EK KKK OK ORK RK RK KR RK Z 


printSbed prints to the console a bed */ 
‘ number moved to the working area by the */ 
calling routine. K/ 


total number of bytes generated = 464 */ 


A RRR RR BRR RK RE BKK BK RRR KKK RK RK RB RK KK KR KR KR 7 
printSbcd: proc(a); 


del a addr; 

call gten(9c3h, lowlat3dh) ,high(at3dh) , 2th, 13h, 01h, 71h, 2ch, @3h, 23h) ; 
call gten( 72h, @c3h, 05h, 00h, 9c9h, 21h, 16h, 01h, 71h, Geh) ; 

call eten( 62h, Seh, 16h, 00h, Gcdh, lowlatSh) ,high(at3h) ,21h,3fh, 61h) ;syX 
call eton( 34h, seh, 4fh, 96h, OdZ2h, lowlatd aia). Pencat Geb) , Oech, 92h, fen 
call gten(O0dh, 16h, 60h, G6cdh, low(a+3h) Patent cn). Geh, 02h, leh, 9ah) ; 
call eten( 16h, 06h, 8cdh, lowlat3h), hieh(at3h) ,21h,3fh, 91h, 36h, 0h) ; 
call gten(Oc9h, eh, 3ch, 21h, ofh, @1h, 96h, 9d2h, lowlatddh) ,high(latSdh) }; 
call gten( eh, 62h, leh, 9db, 10h, 6Ch, Ocdh, lowlat3h) ,high(at3h) , Geh) ; 
call gten( 02h, leh, 8ah, 16h, 90h, 9cdh, lowlat3h) ,high(at3h) ,21h,3fh) ; 
call gten( 01h, 36h, 90h, 2eh, Ofah, 36h, 07h, 3eh, 7fh, 2eh) ; 

call genSfive( 98h, 96h, $d2h, low(lat?&h) ,high(at7sh) ); 

call ene in oer din cdi plow att) ,hich(a+0fh)) ; 

call gten(21th, 08h, Olh, Veh, Ge6h, 0h, 77h, Oc3Sh, lowlat?@dh) ,high(at+?7dh) ) ; 
call gten(Seh, 20h, Scdh, lowlatOfh) ,highlat9Ofh) ,21h, 12h,01h, 4eh, 96h) ;x 
call gten( 00h, 2eh, 08h, 99h, 7eh, leh, 64h, Ob7h, Ilfh, ldh) ; 

call gten(9c2h, lowlat89h) , high(at&89h) ,9c6h, 39h, 21h, 10h, O1lh, 77h, 4eh) ; 
call gten(@cdh, low at+Ofh) ,high(a+Ofh) ,Geh, 2eh, Ocdh, 
lowlat+8fh) ,high(at@O@fh) ,21h, 11h) ; 
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call gten(Olh, 396h,91h, 3eh, 05h, 21h, Lih, 91h, 96h, Odah); 
call sten( lowlat0e4h) ,high(at+Ge-th) , 92ch, 4eh, 06h, 60h, 2eh, 08h, 09h, Z7eh) ; 
call gten(0e6h, Ofh, Oc6h, 30h, 2th, 10h, Ol1lh, 77h, 4eh, O@cdh) ; 
call giten(ClowlatOrh) ,highla+Ofh) ,2ih, i2h, 61h, 35h, 4eh, 06h, 06h, 2eh) ; 
call gten( 68h, 09h, ¢eh, leh, 64h, Ob7h, lih, ldh, 9c2h, low(at+Ocdh)); 
call gten(highCatOcdh) ,0céh, 56h, 21h, 10n, 91h, 77h, teh, Ocdh, low( at@fh) ) ; 
call gten(ChighlatOfh) ,21h,11h, 31h, 34h, 9c2h, lowla+GaSh) ,high(at+@a3h) , 
Z2eh, 08h) ; 
call sten(23h, Veh, 9e5h, Ofh, 0c6h, 36h, 2th, 10h,O01h, 77h); 
call gten(4eh, Ocdh, lLowlatOfh) ,high(at+Ofh) ,Ofh, 45h, Ocdh, 
lowlatGrh) ,high(atOfh) ,21h); 
call gten(C8h, Olh, Veh, Odboh, 6h, 0d2h, lowlat+tllih) ,high€a+1l1iih) ,@eh, 2dh) ; 
call gtien(Ocdi, lowla+Sfa) ,high(atGrh) ,Seh,41h, 21h, 08h, @ lh, 96h, 77h) ; 
call gten(Gc3h, lowlat+lidh) ,high(at+lidh) ,Qeh, 26h, 
Gcdh, lowlatOfh) ,highlatOfh) ,21h, 08h) ;s 
call gten(Olh, eh, O6d6h, 41h, 77h, leh, Gah, 16h, 60h, 2th) ; 
call gcten( 98h, 91h, 4eh, 06h, 00h, Oc3h, lowlatilS7h) ,high€a+157h) , 7ah,2fh) ; 
call eten(37h, 7bha, 2fh, ofh, 13h, 2th, 00h, 99h, 3eh, 11h) ; 
call gten(9eSh, 19n,3d2h, lowla+lSch) ,high(ati3ch) ,Oe3h, Ge lh, 
GedSh, 79h, 17h); 
call gten(4fh, V&Sh, 17h, 47h, @dh, 17h, 6fh, ch, 17h, 67h) ; 
call gten(Oflh,3da, 8c2h, lowlat136h) ,high€at+136h) , Ob7h, 7ch, 
1fh,57h, 7dh) ;s 
call gten(1fh,S5fh, Oc9h, Scdh, lowlat+l2ah) ,high(a+1l2ah) ,@afh, 
91h,5fh, 3eh) ; 
call gten( Oh, 95Sh, 0d2h, lowlat+lbeh) ,highlatlbeh), leh, 9ah, 16h, 90h, 21h) ; 
call gten(0&h, 01h, 4eh, 96h, 60h, Gcdh, lowlatl2ah) , 
high(€at+i2ah) ,21h, lowlat1f3h)); 
call gten(high(at1fSh) ,7th, leh, ah, 16h, 90h, 21h, 10h, Olh, 4eh) ; 
call gten( 96h, 00h, 0c3h, lowlatlath) ,highCatilath) , 79h, 93h, 78h, 9ah, Of2h) ; 
call gten( lowlat1i&8dh) ,high(at18dh) , 60h, 69h, S9ebh, 44h, 4dh, 2th, 90h, 00h) ; 
call geten(9ebh, 73h, Oblh, Oc&Bhn, Vebn, 7Sh, fh, 47h, 79h, 1fh) ;yx 
call gten(4fh, 9d2h, lowlat1l9fh) ,high(at19fh) , 19h, Oebh, 29h, 
Oc3h, lowCat19 1h) ,high(Cat19Ilh)); 
call gten(9cdh, low(a+1Slh) ,nigh(€at+18ih) ,21lh, 68h, Olh, 7eh, 93h, 4fh, 3eh) ; 
call gten(OSh, 9ah, 71h, 2eh, 19h, Teh, 9c6h, 30h, 77h, 4eh) ; 
call gten(9cdh, lowlat9fh) ,high(atOfh) , Oc3h, lowlat+lcSh) ,high(atlc3h) , 
Geh, 20h, Ocdh, low(at+GOfh) ); 
call cten(Chighlat+Ofh) ,21n, 68h, Olh, Veh, 9c6h, 30h, 2eh, 10h, 77h) ; 
call generate(4eh) ; 
call generate(Ocdh) ; 
call generate( lowlatOfh)) ; 
call generate(high(at@fh)); 
end printSbcd; 


A RRR HK RK RR OR OK RK EK OR KEE OK OB OK RK KKK RR OK ROR OK XE OK OK OK OK OOK KR ER / 
4% neSbed logically compares two bed numbers */ 
7/* taken from the stack returns a value of one*/ 
/* if the numbers are not equal, a Zero if KS 
/k equal. total number of bytes gen = 67 */ 
A BR RRB RB RK KR KKK RK EK OK OK OK EK OK OK SE KOK EK IKK OK OK OK OK KK RK OK KK KK 
neSbcd: proc(a); 
dcl a addr; 
call geten(21h, lah, llh, 36h, 06h, 2dh, 36h, 06h, 21h, 19h); 
call gten(1lh, Veh, 0d6h, @&8h, 9d2h, lowlat+3eh) ,highlat+t3eh) ,4eh, 06h, OOh) ; 
call gten(2eh, 0&h, 99h, Veh, 2th, 19h, 1[1lh,5eh, 16h, 00h) ; 
call gten(2eh, 19h, 19h,¢fh, Teh, 91h, @cah, lowlat34h) ,high(at+34h) ,21h); 
call gten( lah, 11h,36h, 91h, 2dh, 7eh, 6c6oh, 08h, 77h, Oc3h) ; 
call gten( low(atSh) ,high(at+8h) ,21ih, 18h, lh, 36h, 00h, 2dh, 34h, @cS3h) ; 
call genSfive( lowlat&h) ,high(at+8h) ,2ch, ¢4eh, 06h) ; 
call generate(@Qh) ; 
call generate(@cdSh); 
end neSbcd; 


A RRR RRR RK RK ORR KOK OR OK OK OK OK OB 2K OK OK OK RE OK OK OK 8 OK ORE OK OR OK OK OK OR OK OB ROK OK RK / 
7% eqSbed logicaily compares two bcd numbers *Z 
7* taken from the stack returns a value of one*/Z 
/* if the numbers are equal, a Zero if not. */ 

7etotal number of bytes generated = 66 *S 
A RRR BBR AK KK KR RRR RB AK OK AB KOR OK OR ROR OK RR OK ROK OK ROK ORK OK KK KK 7 


198 





eqSbed: proc(a); 


dcl a addr; 

call gten(€21h, lah, 11h, 36h, 90h, 2dh, 36h, 99h, 21h, 19h) ; 

call gten(Veh, 0d6h, O0&h, 0d2h, lowlat+3eh) ,high(at+3eh) , 4eh, 06h, 09h, 2eh) ; 
call gten(9Gh, 09h, Veh, 2th, 19h, 11h,5eh, 16h, 06h, 2eh) ; 

call gten(10h, 19h,4fh,7eh,91h, Oc2h, lowlat3th) ,highlat3i1h) ,21h, fah) ; 
call gten(11h,36un, Olh, 2dh, 3th, Gc3Sh, low(at+&h) ,high(at8h) , 21h, lah) ; 
call gten(ilh, 36h, OGh, 2dh, feh, Oc6h, OSn, (7h, Oc3h, lowlat+8h)) ; 

call genSfive(high(a+&h) ,2ch,¢eh, 66h, $9h) ; 

call generate(GcSh) ; 


end eqSbcd; 


A RRB RK KR BK KK KR ARK KB AE KKK RE KKK RK KKK KKK Z 


7% 
7% 
7% 
7% 


a 
“ 


gweSbhbed logically compares two bcd */ 
numpers taken from the stack dnd */ 

returns a value of one if the Ist */ 
number is greater or equal to the */ 
second nuinber. bytes generated=G24x*/ 


A RRR KR ORK RR KAS OK KOO KK OK OK OK OK OK OK TK OOK OR OK KOK OK OK KOK OK OK KK 7 
geSbced: proc(a) ; 


dcl a addr; 
call gten(8cSh, lowlat+@ech) , high(atOech) ,21h, leh, 61h, 
36h, O@1h,2eh, lch) ; 
call geten(7eh, Ofh, 9d2h, low(at&Sh) ,high(at&dh) , 2eh, 19h, Veh, 2ch, 96h) ; 
call eten(Oc2h, lowlat+67h) ,high(at67h) , 21h, leh, O1lh, Veh, 0d6h, 
68h, Od2h) ; 
call gten( lowla+72hn) ,high(at?72h) ,4eh, 06h, 99h, 2eh, O68h, 09h, 7eh, 21h) ; 
call gten(leh,O1h,5eh, 16h, 08h, 2eh, 10h, 19h,4fh, Veh) ; 
call gten(91h,0c2h, lowlat3dh) ,high(Cat3dh) , 21h, leh, 01h, 3¢h, 
Oc3h, lowlat+17h)) ; 
call gten(Chigh(ati7h) ,2th, leh, O1h, 4eh, 66h, 00h, 2eh, 08h, 09h) ; 
call eten(Veh,21h, leh, 81h, Seh, 16h, 60h, 2eh, 10h, 19h) ; 
eall eten(4fh, Veh, Sfh, 79h, 93b, 0d2h, low(at5dh) , high(at+5dh) , 21h, tdh) ; 
call gten(O01lh,36h, 61h, 2th, leh, Olh, Veh, O0c6h, 08h, 77h) ; 
eall gten(98cd3h, lowlat!7h) ,high(€at+1?7h) ,2dh, Veh, 2ch, 96h, O42h, 
low(Cat+7?2h) ,high(a+72h) ); 
call eten(2eh, ldh, 36h, O1Lh, 2eh, leh, Teh, 6d6h, 98h, Gc2h) ; 
call etenllowlat@Oebh) ,highlatGebh) , adh, Goh, Olh, Sc3h, lowla+@ebh) , 
high(atOebh) ,2eh, 19h) ; 
call grten( Veh, 2ch, 96h, 9c2h, lowlat+Od6h) ,high(atOd6h) ,21h, leh, Oth, Zeh) ; 
call gten(0d6h, 0&h, 9d2h, low(lat+Ge@h) ,highl(a+OeGh) , teh, 06h, 06h, 
2eh, 68h) ; 
call gten( 09h, Veh, 21h, leh, 91h, 5eh, 16h, 90h, 2eh, 10h) ; 
call gten(19h,4fh, Veh, 91h, @c2h, lowlatQaeh) ,high(at+Qaeh) , 21h, 
leh,@1h); 
call gten( 34h, Oc3h, low(a+68h) , high(at88h) , 21h, leh, O1lh, ¢4eh, 96h, 00h) ; 
call gten( 2eh, O&h, 09h, feh, 21h, leh, 01h, S5eh, 16h, 00h) ; 
eall gten(2eh, 10h, 19h, 4fh, 7eh, 91h, 0d2h, lowlat@cch) ,high(atOcch) , 
2ih); 
call gten(1idh,01h, 36h, O1lh, 2th, leh, O1h, 7eh, 0c6h, 98h) ; 
call gten( 77h, O0c3h, low(at88h) , high(at88h) , 7eh, 2dh, 96h, O6d2h, 
low(a+@eOh) ,high(a+G@e@h) ) ; 
call gten(2eh, ldh, 36h, Olh, 2eh, leh, eh, 0d6h, 08h, Oc2h) ; 
call geten( lowlat+®Oebh) ,high(at@ebh) ,2dh, 36h, Olh, Oc9h, 21h, ldh, 9th, 36h) ; 
call gten( 00h, 2eh, lbh, 36h, 96h, 2ch, 36h, 0@h, 2eh, 98h) ; 
call gten( 7eh, Ge6h, 79h, 2eh, 19h, 77h, 2eh, 10h, Veh, Oe6h) ;X 
call gten(79h, 2eh, lah, ?@h, Qafh, 6d6h, 80h, 9fh, 2eh, O8h) ; 
call gten(Qa6o6h, Ofh, O6d2h, lowlati17h) ,high(at117h) ,2eh, lbh,36h, O1h, 
Gafh) ; 
call gten(Od6h, 80h, 9fh, 2eh, 10h, Oa6h, Ofh, Od2h, low(at126h) , 
high(a+126h) ); 
call gten(2eh, Ich, 36h, Oth, 2eh, lbh, Veh, 2ch, Oa6h, Ofh) ; 
call gten(Od2h, lowlat135h) ,high(at135h) , @Ocdh, low(at+3h) ,high(at+3h) , 
Oc3h, lowlat13dh) ,high(at13dh) , Veh) ; 
call gten(Ofh, Od2h, lowlat13dh) ,high(a+13dh) ,2ch, 36h, O1lh, 2th, ldh,@1h) ; 
call generate(4eh); 
call generate(06h) ; 
call generate(OQh) ; 
call generate(QcSh) ; 


end geSbed; 
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A TRIB TERR RR IK RK IE KK KK NET KOK KOK RK ORK ORK KR OK OK KK KIRK RK KKK 
/* writeSstring calls the routine that */ 
/7* prints the characters followed by the */ 


ate 
~ 


opcode. total no. bytes gen = 6l KS 


AS ROR RK IR KK RK AR OK ORAS OK OR ROK OK RR KR OK OK OK OK OK ROR OK ORR OK KOK KR KK KK Z 
writeSstruge: proc; 


del a addr; 

a = cespaddr(63); 

call gten(@Oc3h, low(at2eh) ,high(at2eh) ,2ih, 08h, 01h, 71h, 2ch, 73h, 23h) ; 
call gten( 72h, Oc3h, 05h, 90h, 6c9h, 21h, Och, 91h, 71h, Veh) ; 

call gten(02h,5eh, 16h, 90h, SOcedh, lowla-12) ,high(a-12) ,21h,3fh, 91h) ; 
eall geten(3¢h, 3eh,4fh, 96h, dd2h, lowlat2dh) ,high(a+r2dh) , Sen, 02h, leh) ; 
call gten(Odh, loa,08h,Scdh, low(a-12) ,high€a-1!2) ,Geh, 02h, leh, Oah) ; 
call gten( 16h, 06h, Ocdh, low(a-12) ,high(a-12) ,21h,3fh, 81h, 36h, 00h) ; 
call generate(Oc9h) ; 


end writeSstrng; 


A) ERK ARK OK RK OB OK OK OK ORK KOK ROKK 2K OK KOK SOK OK RK OR KK OK RRR OK KK Z 
/* convertSint removes the first two KS 
/%*% bytes from the stack changes them to%*/ 
/* a bed number and returns 8 bytes to */ 
/%* the stack. total bytes = 383 *K/ 
J ROR RRR RRR RR OR RK KR ERK EK RR KK KORO OK ROKK OK KK KKK HZ 
convertSint: proc(a); 


del a addr; 

call gten(2th, 17h, 61h, 36h, O1h, 3ch, 07h, 21h, 17h, Olh) ; 

call gten(96h, Odah, low(atldh) ,high(latidh) ,4eh, 06h, O6Gh, 2eh, Nah, 09h) ; 
call gten( 36h, 60h, 21h, 17h, OLlh, 34h, Oc2h, low(atSh) ,high(at5Sh) ,36h) ; 
call gten( 00h, 3eh, 04h, 21h, 17h, OLh, 96h, Gdah, low(lat37h) ,high(at+37h) ) ; 
call eten(4eh, 66h, 00h, 2eh, 12h, 69h, 36h, 00h, 21h, 17h) ; 

call gten( 61h, 34h, Oc2h, lowlatlfh) ,high(at+Ifh) ,2ch, 36h, 66h, 3eh, Of fh) ; 
call gten( 06h, 7fh, 2eh, 0&h, 96h, 2ch,4fh, 78h, 9eh, Od2h) ; 

call gten( low(latS9h) , high(at59h) ,2eh, 18h, 36h, 61h, Oafh, 2eh, 08h, 96h) ;yX 
call gten(2ch,4fh, 3eh, 09h, 9eh, 2dh, 7 lh, 23h, 77h, 2eh) ; 

call gten( lah, 36h, 19h, 23h, 36h, 27h, 2eh, 19h, 36h, O1h) ; 

call gten(2eh, 6ah, 36h, 45h, 21h, 19h, 01h, 7eh, Ofh, 6d2h) ; 

call gten(lowlatOcfh) ,high(atOcfh) ,2eh, 08h, 7ch, 2ch, 46h, 2eh, lah, 96h) ; 
call gten(2ch,4fh, 78h, %eh, Odah, low(at&8oh) ,high(at86h) ,2eu, 19h, 36h) ; 
call gten( 06h, O0c3h, low(at+68h) ,high(at+6éh) , leh, 0ah, 16h, 00h,21h, lah) ; 


call giten(Olh,¢eh,2ch, 46h, O0c3h, low(atOcOh) ,high(atOcOh) ,7ah,2fh,57h) ; 


call gten(7bh,2fh,5fh, 13h, 21h, 00h, 66h, 3eh, I1h, @eSh) ;syX 

call gten( 19h, O0d2h, low(lat@Oadh) , high(at+OadSh) , Ve3h, Ve lh, Of Sh, 79h, 

17h, 4fh) ; 

call eten( 78h, 17h, 47h, 7dh, 17h, 6fh, ?ch, 17h,67h, Of lh) ; 

call gten(3dh,90c2h, low(at9fh) ,high(at+9fh) , Ob7h, @ch, lfh,57h, 7dh, 1fh) ; 
call eten(Sfh, 9c9h, Ocdh, low(at93h) ,high(at+93h) ,21h, lah, 9lh, 71h, 23h) ; 
call gten( 70h, 2eh, Oah, 35h, 0c3h, low(at68h) , high(at68h) ,2dh, Veh, Ofh) ; 


call gten(Od2h, lowlatO@dbh) ,high(atOQdbh) , 2eh, Gah, 7ch, 0c6h, 89h, 77h, 2eh) ;s 


call gten( 17h, 36h, 06h, Oafh, 21h, lah, 01h, 96h, 2ch,4fh) ; 


call gten(3eh, 00h, 9eh, 9d2h, lowlat13bh) ,high(at13bh) ,2eh, 17h, 4eh, 96h) ; 


call gten( 90h, Zeh, 12h, 69h, Gebh, 21h, Veah, 03h, 73h, 2ch) ;syX 

call gten( 72h, 21h, lah, 01h,5eh, 2ch, 56h, 2eh, 08h, teh) ;y 

call gten(2ch, 46h, 0cdh, low(lat+93h) ,high(at93h) ,2ah, Veah, 03h, 71h, 21h) ; 
call eten(17h,9Olh, 34h, 2th, lah, Oth, Seh, 2ch, 56h, 2eh) ; 

call eten( 08h, 4eh, 2ch, 46h, Ocdh, low(at93h) ,high(a+93h) , 21h, 08h, OLh) ; 

call gten(73h, 23h, 72h, leh, Oah, 16h, 90h, 21h, lah, 91h) ;y 

call gten(4teh, 2ch, 46h, Gcdh, low(at+93h) ,high(at+93h) ,21h, lah, 61h, 71h) ; 


call gten(23h, 70h, O0c3h, lowlat+Odfh) ,high(atOdfh) ,O1h, 07h, 00h, 2eh, Oah) ;y 


call gten( 09h, 9ebh, 21h, 12h, 61h, 7eh, 87h, 87h, 87h, 87h) ;X 
call gten(Oddh, 4fh, O6cSh, 23h, Veh, 6d 1h, 83h, Ge lh, 77h, OLh) ;yx 
call gten( 06h, 00h, 21h, 0ah, 01h, 09h, VeSh, 01h, 02h, 09h) ; 
call gten(2th, 12h, Oth, 09h, Veh, 87h, 87h, 87h, 87h, 11h) ; 
call gten( 03h, 00h, 2th, 12h, O1h, 19h,4fh, Veh, 81h, 9e lh) ; 
call gten(77h, Olh, 95h, 00h, 21h, 0ah, O1lh, 09h, 9VeS5h, Olh) ;yx 
call gten( 04h, 06h, 21h, 12h, Olh, 09h, 7eh, 87h, 87h, 87h) ; 
call generate(87h) ; 

call generate(Qe lh) ; 

call generate(?7@h) ; 


end convertSint; 
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J RRR RB ABR IE RK KK RK KR KK KK KK ROK KKK KR KK ROK RK KK RZ 
7X convertSbced pops the next eight bytes */ 
/* from the stack, converts the bed num */ 
7% to an integer number and returns it to%*/ 
/% the stack. bytes generated = 313 */ 
J RR BRR KK HK RK RK RK KKK KR KK RK KR KK KR KKK KKK Z 


convert 
dcl 
call 
call 
call 
call 
call 
call 


call 
call 


Sbed: proc(a); 


a addr; 
gten(9c3h, lowlatIlfh) ,highlatifh) ,21h, 15h,601lh,71h, 2ch, 73h, 23h) ; 
eten( 72h, Oc3h, 65h, 00h, 0c9h, 21h, 17h, 91h, 7lh, 23h) ; 

gten( 76h, 9eh, 09h, 2dh, Seh, 2ch, 56h, Ocdh, low(a+3h) , high(a+3h)); 
eten(0c9h, 21h, 12h, O1lh, 36h, 00h, 2eh, 19h, 36h, 00h) ; 

gten(2sh, 36h, 00h, 2eh, 08h, 7eh, 9e6h, 7fh,4fh, Seh) ; 
gten(45h,91lh, 6d2h, lowlat4dh) ,highl(at4dh) , 9c3h, lowlat44h) , 
high(a+44h) , 45h,52h) ; 

eten(352h, 4fh, 52h, 20h, 49h, 4fh, 20h, 24h, Olh, Sah) ; 

eten( 02h, Ocdh, low(at+Ofh) , Pence t othe Och, low(a+139h) , 
high(a+139h) , Veh, 9e6h, 80h) ; 


cail sten(@d6h, 80h, @c2h, low( at59h) , high(at59h) , 2eh, 12h, 36h, 01h, 2eh) ; 


call 
call 
call 


call 
call 
call 
call 


call 


call 
call 


call 


call 
call 
call 


call 
call 
call 
call 
call 


call 
call 
call 
call 


call 
call 


zten(0&h, @eh, 8ebh, 7fh, 9d6h, 40h, 2eh, 13h, 77h, 3eh) ;syX 
=ten(7fh, 96h, O0d2h, low(a+6bh) ,high(a+6bh) , 36h, 00h, 2ch, 36h, 97h) ;sX 
gteu(@aih, 21h, 13h, 61h, 96h, 0d2h, low(at193h) ,high(at193h) , 
2ch,4eh); 

e=ten( 06h, 00h, 2eh, 08h, 09h, Veh, leh, 94h, Ob7h, I]fh) ; 

eten( ldh, 9c2h, low(a+80h) ,high(at&8&9h) , 66h, 00h, 4fh,21h, 18h,01b) ; 
Pree? Ieee von, len Oh, 168,60h. 21h, 168,61) ; 

=ten(¢eh, 2ch,46h, 6c3h, low(atObfh) ,high(atObfh) , 79h, 93h, 
78h, 9ah) ;sy 

zten(Of2h, low(la+@0a8h) , high(a+@9a8h) , 60h, 69h, Sebh, 44h, 4dh, 
g¢ten( 00h, Oebh, 7&h, 9b lth, O9c&h, Vebh, 78h, lfh, 47h, 79h) ;X 
eten(1lfh,4fh, Od2h, low(at+@O@bah) ,highlat@bah) , 19h, SVebh, 29h, 
Oc3h, low(at+Qach) ); 
eten(highla+@ach) ,Gcdh, lowla+9ch) ,high(a+9ch) , 21h, 18h, 61h, 
4eh,2ch, 46h) ; 

gten( Qebh, 09h, 22h, 16h, Oth, 21h, Of9h, 93h, 35h, Oafh) ; 
eten(96h, O0d2h, low(a+6eh) ,high(a+6eh), leh, ah, 16h, 90h, 21h, 10h) ; 
sten(9Olh, ¢4eh, 2ch, 46h, Ocdh, low(at9ch) ,hizgh(at9%ch) , 9ddh, 
21h, 1¢h) ; 

eten(Olh, 4eh, 66h, 06h, 2eh, 98h, 99h, Veh, Geb6h, Ofh) ; 

eten( 06h, 00n, 4fh, 0d lh, 69h, 60h, 19h, 22h, 10h, Olh) ; 
eten(2lh, 14h, 61h, 35h, 2dh, 35h, 9c3h, low(at6eh) ,high(at6eh) , 3eh) ; 
eten(Offh, 06h, ?fh, 2eh, 16h, 96h, 2ch, 4fh, @&h, %eh) ; 

gten(0d2h, lowla+12¢h) , high(at+124h) ,O@c3h, low(a+lleh), 
high(a+1leh), 45h,52h, 52h, 4fh); 

eten( 52h, 20h, 49h, 4fh, 20h, 24h, Pelosi ake biah(at 14h) , 
Ocdh) ; 

etent low(atOfh) ,high(at+fh) ,21h, 12h, 01h, 7eh, Ofh, 6d2h, 
low(a+139h) ,high(at139h) ) ; 

eten(Oafh, 2eh, 10h, 96h, 2ch, ¢+fh, 3eh, 06h,  9eh, 2dh) ; 
generate(7?@ lh); 

gzgenerate(23h); 

generate(?T7h) ; 


end convertSbecd; 


J RRKR RRA K BKK BKK RK KK RK OR KK KKK KK RR K KK RK KKK Z 
/* dump generates code for a carriage */ 
7/* return and line feed character to */ 
7* the screen to start a new line. */ 
/% total number of bytes generated=38*/ 
ARBRE KKKKKRKKKKKKKKRERKKKKKKKKKKKKBRKKKKKZ 
dump: proc; 


dcl 

a= 
call 
call 
call 
call 
call 
call 
call 


a addr; 
cespaddr( 64) ; 
eten(Oc3h, low(a+Ofh) ,high(atOfh) , 21h, 08h, Olh, @1h, 2ch, @3h, 23h) ; 
g=ten( 72h, 6c3h, 65h, 96h, 0c9h, Geh, 02h, leh, Odh, 16h) ; 

g=ten( 00h, Ocdh, low(lat3h) ,high(at3h) , eh, 62h, leh, Oah, 16h, 96h) ; 
genSfive(Ocdh, lowlat3h) ,high(€a+3h) ,21h,3fh) ; 

generate(@Qlh) ; 

generate(36h) ; 

generate(Q@h) ; 
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end dump; 


A FRR RRR ERR SR RK RK RK AK OK OK OE OE OB OK KE OK KOK 2B OK EG BE IK OE EK KOK OR OK 5K RE OK OK OES OK OK OK OE OK EK OK OK KK KKK OK OK KE 
SP BRK Proceduresocatlled by case stmt **KX*/ 
A RR ORR RR KOR RK OR OK ER KR RR KE OK OK OK OK OK OK OK OK OK OR KK OK OR RK OR OK RK iS OR OK OK KOE KE EOE ENE OE SKK OK IS OK ISK KK KK KK KKK 


setSflags: proc; 
del i byte; 
do i=1 to 65; 
espeCi)d= true; 
end; 
end setSflags; 


endpl: proc; 
passl= false; 
pass2= true; 
call setSflags; 
call setupScomSfile; 
call rewindSpinSfile; 
call openSpinSfile; 
codestrt = varstrt + varcount; 


progSsize = codestrt + codecount; 

piuptr = pinrecsize; 

spSmax = max - 2; 

call generate(3lh) ; 7% ilxi sp */ 

call generate( low(spSmax)); /* max stack ptr */ 
call generateChigh(spSmax)) ; 

call generate(Oc3h) ; 7k jmp to code area */ 


call generate(lowlcodestrt)); 
call generateChigh(codestrt)); 


do loop=l1 to (varcount + 58); “7k initialize work area */ 
call generate(QQOh) ; 
end ; 


end endpl; 


endprog: proc; 
pass2 = false; 


call generate(Ofbh) ; S* ei *F 
call generate(76h) ; 7k hilt */ 
call generate(76h) ; 7X bhlt *7 


call deleteSpinSfile; 
call writeScomSfile; 
call closeScomSfile; 


if errcount = 9 then do; 
call print(.’end of compilation. no program errors.S’); 
call printchar(9dh) ; /*® cr */ 
call printchar(@ah) ; Sk Lf */ 
end; 


else call print(.’ compilation terminated due to error(s}. 
call printchar(@Qdh) ; 
call printchar(Qah) ; 
goto boot; 
end endprog; 


secSpass: proc(a); 
dcl a addr; 
call generate(Qcdh) ; /* call */7 
call generate( low(la)); 
call generate(Chighla)); 
end secSpass; 


Ib12: proc; 
del (lblnumber, lbladdr, n based Ibladdr) addr; 
lblnumber = getSnextSaddr; 
lbladdr = .memory + (2* lblnumber) ; 
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n = codecount; 
end 1b12; 


ldib3: proc; 
del i byte, a addr; 
do i=1 to 4; 
a = getSnextSaddr; 
call genSfive(@eh, low(a) ,96h,high(a) ,9clh) ; 
end; 
end ldibd; 


ldii¢t: proc; 

del a addr; 

a = getSnextSaddr; 

call genSfive(@eh, low(la) ,O06h, high(a) ,Octh); 
end 1dii4; 


cnvb9: proc; 
dcl a addr; 
call generate(Qcdh) ; /* Jmp */ 
call generate(low(lcspaddr(9) + 358)); 
call generate(Chigh(cspaddr(9) + 338)); 


call popSsvSaddr(106h) ; 7* CT bytes */ 
call popSbed(196h) ; 7X 23 bytes */ 
a = cspaddr(9) + 30; 

call convertSbed(a); 7* 313 bytes */ 
call pushSint(110h); 7% Z bytes */ 
call pushSsv@addr( 106h) ; 7k 2 bytes */ 
call generate(lOc9h) ; Sk pret */ 

call generate(Qcdh) ; 7k call */ 


call generate(lowlcspaddr(9))); 
call generate(high(cspaddr(9))); 
end cnvb9; 


cnvil®9: proc; 
dcl a addr; 
call generate(Qc3h) ; /* jmp */ 
call generate(lowlcspaddr(190) + 428)); 
call generate(high(cspaddr(10) + 428)); 


call popSsvSaddr(1906h) ; /% UF bytes */ 
call popSint( 108h) ; /* CT bytes */ 

a = cspaddr( 10) + 14; 

call convertSint(a); /* 383 bytes */ 
call push$becd( 1@0ah) ; /* 23 bytes */ 
call pushSsvSaddr( 166h) ; /* 2 bytes */ 
call generate(@c9h) ; 7k ret */ 

call generate(Qcdh) ; 7* call *7 


call generate( low(cspaddr(10))); 
call generate(high(cspaddr(10))); 
end cnvil9@; 


lital2: proc; 
del taddr addr; 
taddr = getSnextSaddr + varstrt; 
call generate(QOlh) ; 7* lxi b */ 
call generate(low(taddr)); 
call generate(high(taddr)); 
call generate(QcSh) ; 7* push b */ 
end lital2; 


adab13: proc; 
eridaadd bila’: 


s 


addil4d: proc; 
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call generate(Qclh) ; 7k pop b x*/ 


call generate(Oelh) ; 7% pop h x*/ 

call generate(099h) ; /*® dad b */ 

call senerate(QeSh) ; /* push h x*/ 
end addil4; 


subb195: proc; 


end subbI15; 


subdil6: proc; 


call generate(@cth) ; “kX pop b x*/ 
call generate(QOd Ih) ; /*® pop d */ 
call generate(79h) ; /*& mova c *7 
call generate(93h) ; 7 sub e */ 
call generate(¢bh) ; /* move e */ 
call generate(7&h) ; /* mova b */ 
call generate(9ah) ; /& sbb b */ 
call generate(47h) ; “* movb a */ 
call generate(Oc5h) ; /* push b */ 
end subil6; 


mulb1?: proc; 


end fiib 17: 


mulil8: proc; 
del a addr; 
call generate( Och); /* jmp */ 
call generate(lowlcspaddr( 18) + 35)); 
call generate(high(cspaddr( 18) + 55)); 


call popSswvSaddr(106h) ; Sk EC bytes */ 

a = cspaddr( 18) + 7; 

call multSint(a); /KE4Q bytes */ 

call pushSsvSaddr(196h) ; 7k 2 bytes */ 
call generate(@Q@c9h) ; * rtn */ 

call generate(Qcdh); 7*& call x*/ 


call generate(cspaddr(18)); 
call generate(cspaddr(18)); 
end mu1lil8; 


divb19: proc; 


end divbl19; 


divi20: proc; 
del a addr; 
call generate(Oc3h) ; /* Jmp */ 
call generate( lowlcspaddr(20) + 69)); 
call generate(Chigh(cspaddr(2@) + 69)); 


call popSsvSaddr( 1@6h) ; 7% 2 bytes */ 
a = espaddr(20) + 7; 

call divSint(a); /*® 34 bytes ¥*/ 

call pushSsviaddr( 106h) ; /k& 2 bytes */ 
call generate(@c9h) ; /* rtn */ 

call generate(Ocdh) ; /k call */ 


call generate(cspaddr(2@)); 
call generate(cspaddr(2@)); 
end divi2Q; 


Issb21: proc; 
end Issb21; 
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Issi22: proc; 
del a addr; 
call generate(Oc3h) ; 7* Jmp */ 
call generate(low(cspaddr(22) + 38)); 
call generate(Chigh(cspaddr(22) + 38)); 


call popSsvSaddr(1@6h) ; Sk FC bytes */ 
a = cspaddr(22) + 7; 

call 1tSint(a); /* 23 bytes */ 

call pushSsvSaddr(196h) ; 7% PZ bytes */ 
call generate(9c9bh) ; Sk ret */ 

call generate(Ocdh) ; 7* call */ 


call generate( low(cspaddr(22))); 
call generate(Chigh(cspaddr(22))); 
end Issi22; 


leqb23: proc; 
end leqb23; 


leqi24: proc; 
del a addr; 
call generate(Oc3h) ; 4k jmp */ 
call generate( low(cspaddr(24) + 38)); 
call generate(high(cspaddr(24) + 38)); 


call popSsvSaddr(196h) ; S& C bytes */ 

a = cspaddr(24) + 7; 

call leSint(a); /* 23 bytes */ 
call pushSsvSaddr(1966h) ; Sk Vbytes K/ 
call generate(Oc9h) ; /* ret */ 

call generate(@cdh) ; “* call */ 


call generate( low(cspaddr(24))); 
call generate(Chigh(cspaddr(24))); 
end leqi24; 


eqlb25: proc; 
del a addr; 
call generate(Oc3h) ; Sk Jmp */ 
call generate(low(cspaddr(25) + 81)); 
call generate(high(cspaddr(25) + 81)); 


call popSsvSaddr(196h) ; Sk F bytes */ 

a = cspaddr(25) + 7; 

call eqgSbcd(a); /* 66 bytes */ 
call pushSsvSaddr(196h) ; Zk FZ bytes */7 
call generate(Oc9h) ; 7k ret */ 

call generate(@cdh) ; /* call */7 


call gwenerate( low(cspaddr(235))); 
call generate(high(cspaddr(25))); 


end eqlb25; 


eqli26: proc; 
del a addr; 
call generate(Q@c3h) ; /* Jmp */ 
call generate(low(cspaddr(26) + 39)); 
call generate(high(cspaddr(26) + 39)); 


call popSsvSaddr(1@6h) ; S* C bytes */ 
a = cspaddr(26) + 7; 

call eqSint(a) ; /* 24 bytes */ 
call pushSsvSaddr(196h) ; Sk @ bytes */ 
call generate(Q@c9bh) ; Sk ret */ 

call generate(@cdh); 7* call */ 


call generate(low(lcspaddr(26))); 
call generate(Chigh(cspaddr(26))); 
end eqli26; 


eqls2?7: proc; 
end eqls27;3 
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neqb28: proc; 
del a addr; 
call generate(Qc3bh) ; 7* jmp */ 
call generate( low(cspaddr(28) + 82)); 
call generate(high(cspaddr(28) + 82)); 


call popSsvSaddr(106h) ; /* 2 bytes */ 

a = cspaddr(28) + 7; 

call neSbed(a); 7% OT bytes %*/ 
call pushSsvSaddr(106h) ; fx C bytes */ 
call generate(Qc9h) ; 7* ret */ 

call generate(9cdh) ; 7k call */ 


call generate( low(cspaddr(28))); 
call generate(high(cspaddr(28))); 


end nedb2a: 


neqi29: proc; 
del a addr; 
call generate(@c3h) ; /*& jmp */ 
call generate(lowlcspaddr(29) + 39)); 
call generate(high(cspaddr(29) + 39)); 


call popSsvSaddr( 106h) ; 7k F bytes */ 
a = cspaddr(29) + 7; 

call neSint(a); 7*% 24 bytes */ 
call pushSsvSaddr(106h)3;/7* 7 bytes */ 
call generate(@c9h) ; Sk ret */ 

call generate(QOcdbh) ; 7*® call */ 


call generate( low(cspaddr(29))); 
call generate(Chigh(cspaddr(29))); 
end neqi29; 


neqs39: proc; 


end neqs3@; 


geqb3l: proc; 


end geqb3l; 


geqi32: proc; 
del a addr; 
call generate(@c3h) ; 7* jmp */ 
call generate(low(cspaddr(32) + 38)); 
call generate(high(cspaddr(32) + 38)); 


call popSsvSaddr(1906h) ; 7% 2 bytes */ 

a = cspaddr(32) + 7; 

call geSint(a) ; /* 23 bytes */ 
call pushSsvSaddr(196h) ; /& F bytes ¥*/ 
call generate(9c9h) ; 7% ret */ 

call generate(Q9cdh) ; 4k call */ 


call generate(lowlcspaddr(32)));3 
call generate(high(cspaddr(32))); 
end geqi32; 


ertb33: proc; 
end grtb33; 


grti34: proc; 
dcl a addr; 
call generate(Qc3h) ; 7k jmp */ 
call generate( low(cspaddr(34) + 38)); 
call generate(high(cspaddr(34) + 38)); 


call popSsvSaddr(196h) ; 7% F bytes */ 
a = cspaddr(34) + 7; 
call gtSint(a); /* 23 bytes */ 
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call pushSsvSaddr( 106h) ; 
call generate(Oc9h) ; /*® ret */ 
call generate(Q@cdh) ; 7* call */ 
call generate(lowlcspaddr(34))); 
call generateChigh(cspaddr(34))); 

end grtid34; 


negb35: proc; 


7K 2 bytes */ 


call generate(Q9c lh) ; 7*® pop b */ 
call generate(S3ah) ; 7* da */ 
call generate(8dh) ; /* 10C0E60880 :/ 
call generate(8lh) ; /* add c X/ 
call generate(4fh) ; 7*® move a */ 
call generate(OcdSh); 7*& push b */ 
end negb35; 
nezi36: proc; 
call generate(@clh); /* pop b */ 


call generate(9afh) ; /* xra a */ 
call generate(9lLh); /* sub c */ 
call generate(4fh) ; 7k move a */ 
call generate(Seh); /* mvi a */ 
call generate(Q@Qh) ; 7k ooh */Z 
call generate(98h) ; 7* she b */ 
call generate(47h) ; /* movb a */ 
call generate(Qc3h) ; /* push b */ 


end negid6; 


comb3?: proc; 
call generate(@OQc3h); 7k Jmp */ 
call generate(low(cspaddr(37) + 1804)); 
call generateChigh(cspaddr(37) + 104)); 
call popSsvGaddr( 19eh) ; 7k FT bytes */ 


call popSbcd( 1lO06h) ; /* 23 bytes */ 
call comp!l$bcd(166h); /* 43 bytes */ 
call pushSbcd(106b) ; /* 23 bytes */ 


call pushSsvSaddr( 10eh) ; 

call generate(@Qc9h) ; /* ret */ 

call generate(Qcdh) ; 7k call */ 

call generate( low(cspaddr(37))); 

call generate(Chigh(cspaddr(37))); 
end comb37?; 


SE 2 bytes */ 


comi38: proc; 


call generate(@clLh) ; 7k pop b */ 
call generate(79h) ; /* mova c */ 
call generate(Qeeh) ; /* Bri */ 

call generate(Offh) ; 7* LLALILIII */ 
call generate(4fh) ; 7k move a */ 
call generate(78h) ; /* mova b */ 
call generate(Qeeh) ; 7K xzri */ 

call generate(Offh); 7* LLILIIII */% 
call generate(47h); 7* movb a */ 
call generate(@cSh) ; /* push b */Z 


end comi38; 


not39: proc; 
dcl a addr; 
call generate(@c3h) ; 7k jmp */ 
call generate(low(cspaddr(39) + 34)); 
call generate(Chigh(cspaddr(39) + 34)); 
call popSsvSaddr(1906h) ; 7* 2 bytes */ 
a = cspaddr(39) + 7; 
call notSbool(a) ; 
call push$SsvSaddr( 1906h) ; 


7k 19 bytes */ 
7% 2 bytes */ 


call 
call 


generate(@c9h) ; 
generate(Qcdh); 


7* ret */ 
7*® call */ 





call generate(low(cspaddr(39) ) 
call generate(Chigh(cspaddr(39) 
end not39; 


Ue 
y)3 


and¢49: proc; 
del a addr; 
call generate(Qc3h) ; /* jmp */ 
call generate(low(cspaddr(40) + 41)); 
call generateChigh(cspaddr(40) + 41)); 
call popSsvSaddr(106h); 7k PZ bytes */ 
a = cspaddr(40) + 7; 


call andSbool(a); 7* 26 bytes */ 
call pushSsvSaddr(1906h) ; 7* 2 bytes */7 
call generate(Qc9h) ; 7* ret */7 

call generate(OQcdh) ; 7% call */ 


call generate( low(cspaddr(460))); 
call generate(high(cspaddr(40))); 
end and40; 


bor41: proc; 
del a addr; 
call generate(Q@c3h) ; 7* Jump *7 
call generateClow(cspaddr(41) + 41)); 
call generate(high(cspaddr(41) + 41)); 
call popSsvSaddr(106h) ; 7* 2 bytes */ 
a = cspaddr(41) + 7; 


call orSbool (a); /* 26 bytes */ 
call pushSsvSaddr(1906h) ; 7% FC bytes */7 
call generate(QOc9h); 7* ret */ 

call generate(@cdh) ; 7* call */7 


call generate( low(cspaddr(41))); 
call generate(Chigh(cspaddr(41))); 
end bor4l; 


stob42: proc; 
call generate(Qc3h); /*& Jump */ 
call generate(lowlcspaddr(42) + 44)); 
call generate(Chigh(cspaddr(42) + 44)); 


call popSsvSaddr( 106h) ; 7* € bytes */ 
call stoSbcd; 7* 21 bytes */ 
call svSstack(bcdSlen); 7* 8&8 bytes */ 
call pushSsvSaddr(106h) ; 7k © bytes */ 
call generate(@c9h); 7*® ret *7 
call generate(Qcdh) ; 7% call */ 


call generate(low(cspaddr(42))); 
call generate(high(€cspaddr(42))); 
end stob42; 


stoi43: proc; 


call generate(@elh); /* pop h */ 
call generate(Qcih); 7% pop b */ 
call generate(7lh) ; 7* movm c */ 
call generate(23h) ; 7* inx h */ 
call generate(76@h) ; 7* movm b */ 


call sv$stack(intlen); /7* 2 bytes */ 
end stoi43; 


sto44: proc; 


call generate(@Qelh) ; 7k pop h #7 
call generate(@c ih) ; 7k pop b */ 

call generate(7lh) ; 7* movm c */ 
call generate(S3bh) ; 7* dex sp */ 
call generate(S3bh); /* dcx sp */ 


end sto44; 


stdb45: proc; 
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call generate(Qc3h) ; /* Jmp */ 
call generate(low(cspaddr(45) + 36)); 
call generate(Chigh(cspaddr(45) + 36)); 


call popSsvSaddr(196h) ; /& FZ bytes */ 
call stoSbecd; 7X 21 bytes */ 
call pushSsvSaddr(106h) ; 7X 2 bytes */ 
call generate(Oc9h) ; 7K ret */ 
call generate(Qcdh) ; 7k call */7 


call generate(low(cspaddr(45))); 
call generateChigh(cspaddr(45))); 


end stdb45; 

gtd146: proc; 
call generate(Qe lh) ; /*® pop h */ 
call generate(Oc lh) ; /* pop b */ 
call generate(7lh) ; /*& movm c */ 
call generate(23h) ; 7k inx h */ 
call generate(7Oh) ; 7* movm b */4 

end stdid6; 


std47: proc; 


call generate(Qelh) ; 7% pop h */ 

call generate(Q@c lh) ; 7* pop b */ 

call generate(7Ilh) ; /& movmc */ 
end std47; 


enaiol: proc; 
dcl a addr; 
call generate(Oc3h) ; 7k jmp */ 
call generate(Clow(cspaddr(51) + 442)); 
call gwenerate(Chigh(cspaddr(S51) + 442)); 


call popSsvSaddr(106h) ; 7& PZ bytes */ 
call popSsvSaddr(1lbh) ; /*& 2 bytes */ 
call popSint( 108h) ; 7k CT bytes */ 

a = cspaddr(d1) + 21; 

call convertSint(a); 7% 383 bytes */ 
call pushSbcd(10ah) ; /% 23 bytes */ 
call pushSsvSaddr(11bh) ; 7% CT bytes */ 

call pushSsvSaddr(1096h) ; 7& CF bytes */ 
call generate(Q9c9h) ; Sk vet */ 

call generate(@Qcdh); 7*® call *27 


call generate(low(cspaddr(51))); 
call generate(high(cspaddr(51))); 
end cnaidol; 


br152: proc; 
del (1bl,tot, lbladdr,n based Ilbladdr) addr; 
lbl = getSnextS$addr; 


lbladdr = .memory + (2 * I1b1); 
tot = n + codestrt; 
call generate(@c3h) ; /k jmp */ 


call generate(low(tot)); 
call generate(high(tot)); 
end br152; 


blc53: proc; 
del (1bl,tot,lbladdr,n based Ilbladdr) addr; 
lbl = getSnextSaddr; 


lbladdr = .memory + (2 * IbI); 

tot = n + codestrt; 

call generate(Oc lh) ; /*® pop b */Z 
call generate(79h) ; /* mova c */ 
call generate(Ofh) ; Sk pre */ 
call generate(Qdah) ; SE Jo *7 


call generate(low(tot)); 
call generate(high(tot)); 
end blc53;3 
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en2id4: proc; 
del a addr; 
call generate(@c3h) ; 7k Jmp *7 
call generate( low(cspaddr(54) + 474)); 
call generate(Chigh(cspaddr(54) + 474)); 


call popSsvSaddr(106h) ; 7k FT bytes */ 
call popSbcd( 11bh) ; /* 23 bytes */ 

call popSini(108n) ; /* € bytes 

a = cspaddr(oa) + 37; 

call convertSint(a); 7% 383 bytes */ 
call pushSbcd(10ah) ; 7* 23 bytes */ 
call pushSbcd(11bh) ; 7k 23 bytes */ 

call pushSsvSaddr(196hb) ; Sk FT bytes 

call generate(OQc9h) ; /*® ret */ 

call generate(QOcdh) ; Yk call */ 


call generate( low(cspaddr(54))); 
call generate(Chigh(cspaddr(54))); 
end cn2i54; 


lod53: proc; 


call generate(Qelh) ; 7% pop h x*/ 

call generate(4eh) ; /* move m KZ 

call generate(Q6h) ; /* mvi b */ 

call generate(O@h) ; S* O KS 

call generate(9cSh) ; /* push b */ 
end lodd9o; 


lodbS6: proc; 
call generate(QcS3h) ; 7k Jmp *7 
call generate(low(cspaddr(56) + 36)); 
call generate(high(cspaddr(56) + 36)); 


call popSsvsaddr( 16h) ; Sk ZT bytes */ 
call lodSbed; /*& 21 bytes */ 
call pushSsvSaddr(196h) ; 7% CT bytes */ 
call generate(Qc9h) ; 7% pet */4 

call generate(Qcdh) ; /*® call */ 


call generate( low(cspaddr(56))); 
call generateChigh(cspaddr(56)));3 
end lodb56; 


lodiSd?7: proc; 


call generate(Qe lh); /* pop h */ 

call generate(4eh) ; /* move m */ 

call generate( 23h) ; 7* inx h */ 

call generate(46h) ; 7* movb m */Z 

call generate(Qcdh) ; /* push b */ 
end lodi5S7; 


rdvb38: proc; 


end rdvese: 


rdvid9: proc; 


end rdvi59; 


rdvs6@: proc; 


end rdvs60; 


wrvb61: proc; 
dcl a addr; 
call generate(QcS3h) ; /* jmp */ 
call generate(lowlcspaddr(61) + 5@2)); 
call generate(Chigh(cspaddr(61) + 902)); 
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call popSsvSaddr(196h); 7% CT bytes */7 


call popSbcd( 108h) ; /* 23 bytes */ 
a = cspaddr(6l) + 39; 

call printSbcd(a); 7k 464 bytes */ 
call pushSsvSaddr(106h) ; 7% CT bytes */7 
call generate(O0c9h) ; Sk ret */ 

call generate(@cdh) ; /* call */ 


call generate(low(cspaddr(61))); 
call generateChigh(cspaddr(61))); 
end wrvb6él; 


wrvi62: proc; 
dcl a addr; 
call generate(Q8@c3h) ; 7k jmp */ 
call generate(low(cspaddr(62) + 392)); 
call generate(high(cspaddr(62) + 592)); 


call popSsveaddr(106h) ; /%*% 2 bytes */ 
call popSint(1908h) ; 4X CT bytes */ 

a = cspaddr(62) + 14; 

call printSint(a); | /* S70 bytes */ 
call pushSsvSaddr(166h) ; Sk ZF bytes */ 
call generate(0c9h) ; /*® ret */ 

call generate(OQcdh) ; 7* call */ 


call generate(low(cspaddr(62))); 
call generate(high(cspaddr(62))); 
end wrvi62; 


wrvs63: proc(n); 
dcl (n,i,ch) byte; 
i = 6; 
do while i < n; 
ch = getSnextSbyte; 


call generate(Qeh) ; 7* movi c */ 
call generate(ch) ; 
call generate(@cdh) ; 7* call */7 


call generate(low(cspaddr(63))); 
call generate(high(cspaddr(63))); 
io a + OS 
end ; 
end wrvs63; 


dmp64: proc; 
call generate(0c3h) ; 7X Jmp */ 
call gwenerate(lowlcspaddr(64) + 39)); 
call generate(high(cspaddr(64) + 39)); 


call dump; /k 38 bytes */ 
call generate(0c9h) ; /* ret */ 
call generate(@cdh) ; /* call */ 


call generate(low(cspaddr(64))); 
call generate(high(cspaddr(64))); 
end dmp64; 


A RRB R KKB BKK RK HOR KK EK RR RK OK BR OR RB OK KR TB OK OK OR OK OK OR OK ORK OR RK OK EK OR ER OK OK OK OK KS OK OK EK SOK OK OR OR KOK OK KZ 
7 RRR K BRK KR KR RK HK RK BRR RK RK RK RK OB OB OR RE KOR OR OK OR OR OK OR OE OK OR OK OK OR TK OK OK 2K OR OK OK OK OK OK KR ROK OK OK OK EK KR KK KK Z 
PRR interpreter main program KKK 
J ROR RK RR RK RK RR KK RK RR RK ORR OR RRR OB ROR OB RK EK OR OK ORR OB OR OR OK OR OK OK OK OR ROOK ROR RR OR RR OK OK KOK OR RR OK KR RK KK / 
A RR RR RK RK BR RK EK KR KK EE RR KOR OK ER KK BK EE KK OK EE OK OK EE OK OK OK OK OK ORK OK OK 2K OB OK ROK OE OK SE ERK OK ROK KOK Z 


do; 
call openSpinSfile; 
call setSflags; 
do while passl or pass2; 
Pincode = getSnextSbyte; 
do case pincode; 
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“* 


] 


nop 


endp 


no operation *Z 


- end of program */ 


if passl then call endpl; 


else call endprog; 


7% 


2 


Ibl 


- label */Z 


if passl then call 1b12; 


1% 


else 
tempaddr 


3 


codecount = 


tempaddr 
tempaddr 
tempaddr 
tempaddr 
end ; 


= getSnextSaddr; 


Idib - load immediate bed number 7 
if passl then do; ; 


else call Idib3; 


7* 


4 


Idii 


if passl then do; 
= codecount + 5; 
tempaddr = getSnextSaddr; 


codecount 


end; 


else call l1dii4; 


aS 


eS 


we 


if 


5 


8 


9 
passl then 
do; 


savp 


uns p 


pro 


rtn 


ecnvb 


codecount + 20; 
gpetSnextSaddr; 
getSnextSaddr; 
gwetSnextSaddr; 
getSnextSaddr; 


= load immediate integer */ 


= save parameters (not implemented) */ 


= unsave parameters (not implemented) */ 


= procedure call (not implemented) */ 


= return from procedure (not implemented) */ 


= convert bcd to integer 7 


if cspce(9) then 


do; 


codecount= codecount + 364; 


espe(9)= 


end; 


else codecount 


end; 


false; 


= codecount + 3; 


else if espc(9) then 


A * 


do; 


cespaddr(9 )= codesize + 3; 
call cnvb9; 


espe (9)= 


end; 


false; 


else call secSpass(cspaddr(9)); 


16 


if passl then 


do; 
if cspeé¢ 
do; 


envi 


10) 


= convert integer to bed */ 


then 


codecount= codecount + 434; 
cespe(10)= false; 


end; 


else codecount = codecount + 3; 


end; 
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“& 


0% 


a 


7% 


7% 


ee 


7% 


7% 


else if cspe(10) then 
do; 
espaddr(10)= codesize + 3; 
call ecnvild9; 
espe(16)= false; 
end ; 
else call secSpass(cspaddr(10)); 


11 all - allocate varieble */ 
if pass! then do; 
tempaddr = getSnextSaddr; 
varcount = varcount + tempaddr; 
end; 
else tempaddr = getSnextSaddr; 
12 lita - literal address 7 
if pass! then codecount = codecount + 4; 
else call lital2; 
13 addb - add bed numbers oe 7, 
14 addi - add integer numbers */ 
if pass! then codecount = codecount + 4; 
else call addil4; 
15 subb - subtract bcd nwnbers */ 
16 subi - subtract integer numbers */ 
if passl then codecount = codecount + 9; 
else call subil6; 
17 mulb - multiply bed numbers */ 
18 muli - multiply integer numbers */ 
if pass! then 
do; 
if cspce(18) then 
do; 
codecount= codecount + 61; 
espe(18)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspc(18) then 
do; 
espaddr(18)= codesize + 3; 
call mulild8; 
cespe(18)= false; 
end; 
else call secSpass(cspaddr(18)); 
19 divb - divide bed numbers */ 
20 divi - divide integer numbers */ 


if pass!i then 
do; 
if cspe(20) then 
do; 
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codecount= codecount + 75; 
cespe(20)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspc(20) then 

do; 
cspaddr(29)= codesize + 3; 
espe(l)= false; 
call divi2@; 

end; 

else call secSpass(cspaddr(29)); 


1% 21 Issb - less than compare, bcd *K/ 


7% oe Issi - less than compare, inieger */ 


if passl then 
do; 
if espe(22) then 
do; 
codecount= codecount + 44; 
espe(22)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspe(22) then 
do; 
espaddr(22)= codesize + 3; 
call Issi22; 
cespe(22)= false; 
end; 
else call secSpass(cspaddr(22)); 


% 23 leqb - less than or equal compare, bcd / 


7% a4 leqi - - less than or equal compare, integer */ 


if passl then 


do; 
if cspc(24) then 
do; 
codecount= codecount + 44; 
espce(24)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspe(24) then 
do; 


espaddr(24)= codesize + 3; 
call leqi24; 
espe(24)= false; 
end ; 
else call secSpass(cspaddr(24)) ; 


7% 25 eqlb - equal compare, bed */ 


if passl then 
do; 
if cspe(25) then 
do; 
codecount= codecount + 87; 
espe(25)= false; 
end; 
else codecount = codecount + 3; 
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end; 
else if cespe(25) then 

do; 
espaddr(25)= codesize + 3; 
call eqlb25; 
espe(25)= false; 

end; 

else call secSpass(cspaddr(25)); 


1 26 eqli - equal compare, integer */ 


if passl then 


do; 
if espe(26) then 
do; 
codecount= codecount + 45; 
cespe(26)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspce(26) then 
do; 


cspaddr(26)= codesize + 3; 
call eqliZzé; 
cespe(26)= false; 
end; 
else call secSpass(cspaddr(26)); 


7% 27 eqls - equal compare, string */ 
7% 28 neqb - not equal compare, bed KS 
if passl then 
do; 


if cespe(28) then 
do; 
codecount= codecount + 88; 
espe(28)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspe(28) then 
do; 


cespaddr(28)= codesize + 3; 
call neqb2&4; 
espe(28)= false; 
end; 
else call secSpass(cspaddr(28)); 


7% 29 neqi - not equal compare, integer */ 
if passl then 
do; 
if cspce(29) then 
do; 
codecount= codecount + 45; 
cspe(29)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspce(29) then 
do; 


cespaddr(29)= codesize + 3; 
call neqi29; 
espe(29)= false; 
end; 
else call secSpass(cspaddr(29)) ; 


J 390 neqs - not equal compare, string */ 
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7% 31 seqb - wreater or equal compare, bcd k/ 


7% 32 geqi - greater or equal compare, integer */ 
if passl then 
do; 
if espce(32) then 
do; 


codecount= codecount + 44; 
espe(32)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspe(32) then 

do; 
cspaddr(32)= codesize + 3; 
call geqi32; 
espe(32)= false; 

end; 


else call secSpass(espaddr(32)); 


7% 33 gertb - greater than compare, bed */ 
1X 34 erti = greater than compare, integer */ 
if passl then 
do; 
if cspce(34) then 
do; 


codecount= codecount + 44; 
espe(34)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cespe(34) then 
do; 


cspaddr(34)= codesize + 3; 
call grtid34; 
espe(34)= false; 
end; 
else call secSpass(cspaddr(34)); 


Vie 35 negb - change sign of bed */ 
if passl] then codecount = codecount + 6; 
else call negb35; 


7X 36 negi - change sign of integer KS 


if passl1 then codecount= codecount + 9; 
else call negi36; 


1% 37 comb - complement (9’s) bed */ 
if passl then 
do; 
if espe(3?7) then 
do; 
codecount= codecount + 110; 
espe(37)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if espe(37) then 
do; 


cespaddr(37)= codesize + 3; 
call comb37; 
espe(37)= false; 
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end ; 
else call secSpass(cspaddr(37)); 
“* Ts] comi - complement (2’s) integer */ 


if passl then codecount = codecount + 19; 
else call comi38; 


/* 39 not = boolean negative k/ 


if pass1 then 


do; 
if cspce(39) then 
do; 
codecount= codecount + 40; 
espe(39)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if espce(39) then 
do; 
espaddr(39)= codesize + 3; 
call not39; 
espe(39)= false; 
end; 


else call secSpass(cspaddr(39)); 


oss 40 and a logical and eS 
if passl then 
do; 
if cspce(40) then 
do; 
codecount= codecount + 47; 
cespce(40)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspc(4@0) then 

do; 
cspaddr(49)= codesize + 3; 
call and4@; 
cspe(40)= false; 


end; 
else call secSpass(cspaddr(4@) ); 


7% 41 bor = logical or */ 
if passl then 
do; 
if cspe(4l) then 
do; 
codecount= codecount + 47; 
espe(41l)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspce(41) then 
do; 
cespaddr(41)= codesize + 3; 
call bor4l; 
cespe(41)= false; 
end; 


else call secSpass(cspaddr(41)); 


A* 42 gstob - store bcd */ 
if passl then 


do; 
if cspe(42) then 
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do; 
codecount= codecount + 590; 
espce(42)= false; 


end; 
else codecount = codecount + 93; 
end; 
else if cspce(42) then 
do; 


cespaddr(42)= codesize + 3; 
call stob42; 
espe(42)= false; 
end; 
else call secSpass(cspaddr(42)) ; 


43 stoi - store integer */ 
if passl then codecount = codecount + 73 
else call stoi43; 
a4 sto = store byte */ 
if passl then codecount = codecount + 5; 
else call sto44; 
45 stdb - store destruct bed KS 
if passl then 
do; 
if cspe(45) then 
do; 
codecount= codecount + 42; 
espe(43)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspc(45) then 
do; 
cespaddr(45)= codesize + 3; 
call stdb45; 
espe(45)= false; 
end; 
else call secSpass(cspaddr(45)); 
46 stdi - store destruct integer */ 
if passl then codecount = codecount + 5; 
else call stdi¢d6; 
47 std = store destruct byte */ 
if passl then codecount = codecount + 3; 
else call std47; 
43 derb - decrement stack bed *7 
if passl1 then codecount = codecount + 8; 
else call unsvS$stack(bcdSlen) ; 
49 dcri - decrement stack integer *K/ 
if passl then codecount = codecount + 2; 
else call unsvSstack(intSlen); 
398 dcr = decrement stack byte */ 
if pass1 then codecount = codecount + 2; 
else call unsvSstack(intSlen) ; 
31 cnai - convert integer preceeded by address */ 


if passl then 


218 





4 


1 * 


7% 


7# 


7% 


do; 
if cspce(51l) then 
do; 
codecount= codecount + 448; 
espce(Ol)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspc(3Sl) then 
do; 


espaddr(S1)= codesize + 3; 
call cnaidl; 
cespe(S51)= false; 
end; 
else call secSpass(cspaddr(51)); 


52 br 1 - branch label absolute */ 


if passl then 
do; 
codecount = codecount + 3; 
tempaddr = getSnextSaddr; 
end; 

else call brl52; 


53 ble - branch label conditional */ 


if passl then 
do; 
codecount = codecount + 6; 
tempaddr = getSnextSaddr; 
end; 

else call blc53; 


a4 cn2i - convert integer prececded by bcd */ 
if passl then 
do; 
if cspc(54) then 
do; 
codecount= codecount + 480; 
cespce(54)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspc(54) then 
do; 


cespaddr(54)= codesize + 3; 
call cn2i54; 
espe(54)= false; 
end; 
else call secSpass(cspaddr(54)); 


9) lod - load byte *7 


if passl then codecount = codecount + 5; 
else call lod55; 


56 lodb - load bed number */ 
if passl then 
do;3 
if cspce(56) then 
do; 
codecount= codecount + 42; 
cspc(56)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspc(56) then 
do; 


espaddr(56)= codesize + 3; 
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call lodbd6; 
espe(3o)= false; 
end; 
else call secSpass(cspaddr(56)); 


A* Sv lodi - load integer number */ 
if passl then codecount = codecount + 5; 
else call lodid7; 


7% 38 rdvb - read variable bed x7 
if passl then 
do; 
if cspe(38) then 
do; 
codecount= codecount + 1; 
espce(38)= false; 


end; 
else codecount = codecount + 3; 
, end; 
else if cspce(58) then 
do; 


espaddr(38)= codesize + 3; 
call rdvb958; 
espe(58)= false; 
end; 
else call secSpass(cspaddr(58)); 


1% 39 ravr - read variable integer */ 
if passl then 
do; 
if cspe(59) then 
do; 
codecount= codecount + 1; 
espe(59)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspce(59) then 
do; 


cspaddr(39)= codesize + 3; 
call rdvi59; 
espce(39)= false; 
end; 
else call secSpass(cspaddr(59)); 


7% 60 rdvs - read variable string x7 
Lk 61 wrvb — write variable bed */ 
if passl then 
do; 
if cspce(6l1) then 
do; 


codecount= codecount + 508; 
espe(61)= false; 


end; 
else codecount = codecount + 3; 
end; 
else if cspce(6l1) then 
do; 


cespaddr(61)= codesize + 3; 
call wrvb6l; 
espe(6l1l)= false; 
end; 
else call secSpass(cspaddr(61)); 
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SX 62 wrvio 7 write variable integer */ 
if passl then 


do; 
if cspce(62) then 
do; 
codecount= codecount + 398; 
espe(62)= false; 
end; 
else codecount = codecount + 3; 
end; 
else if cspce(62) then 
do; 


espaddr(62)= codesize + 3; 
call wrvi62; 
espe(62)= false; 
end; ° 
else call secSpass(cspaddr(62) ); 


1% 63 wrvs — write variable string eS 
if passl then 
do; 
if cspe(63) then 
do; 

tempbyte = getSnextSbyte; 

codecount = codecount + 61 + double(tempbyte)* 5; 
cspce(63)= false; 


end; 
else do; 
tempbyte = getSnextSbyte; 
codecount = codecount + double(tempbyte) * 5; 
end; 


do loop = © to tempbyte; 
pincode = getSnextSbyte; 


end ; 
end; 
else if cspe(63) then 
do; 
espaddr(63)= codesize + Ofh; 
call write®Sstrng; /* 61 bytes */ 
tempbyte = getSnextSbyte; 
call wrvs63( tempbyte); 
cespe(63)= false; 
end; 
else do; 
tempbyte = getSnextSbyte; 
call wrst63( tempbyte) ; 
end; 
S* 64 dmp - start new output line */ 
if passl then 
do; 
if cspc(64) then 
do; 
codecount= codecount + 45; 
espce(64)= false; 
end; 
else codecount = codecount + 393; 
end ; 
else if cspce(64) then 
do; 
cspaddr(64)= codesize + 3; 
call dmp64; 
espe(64)= false; 


end; 
else call secSpass(cspaddr(64)); 


A* 65 not used *K/ 


do; 
call error(’co’); 7* code overflow */ 
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call endprog; 
end; 


end; 
end; 
end; 
eof 


“* case pincode */ 
/*% do while passl */ 
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